home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / newerX / xlib.wrappers.self < prev    next >
Encoding:
Text File  |  1993-07-18  |  183.1 KB  |  5,732 lines
  1. " This information was generated by the primitive maker (primitiveMaker.self).
  2. Please do not change it manually. -- dmu 12/91  "
  3.  
  4. " Copyright 1992 Sun Microsystems, Inc. and Stanford University.  "
  5.  
  6. " See the LICENSE file for license information.  "
  7.  
  8. traits xlib display raw _AddSlots: ( |
  9.  
  10. " display  "
  11.  
  12.   ^ xDisplayName: t0  = (
  13.      xDisplayName: t0 IfFail: 
  14.       [|:e| ^error: 'xDisplayName: failed: ', e] ).
  15.  
  16.   ^ xDisplayName: t0 IfFail: failBlock = (
  17.     | myFctObj =
  18.     foreignFct copyName: 'XDisplayName_XDisplayName__glue' Path: 
  19.       'xlib_glue.so' IfFail: 
  20.       [ ( | copyName: n = (self). 
  21.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  22.     |
  23.  
  24.     myFctObj value: t0 IfFail: 
  25.       
  26.       [|:e| ('badTypeError'   isPrefixOf: e)
  27.         ||  ['deadProxyError' isPrefixOf: e]
  28.            ifFalse: [^failBlock value: e] 
  29.               True: [
  30.                 myFctObj value: t0 asByteVector IfFail: failBlock 
  31.            ]] ).
  32.  
  33.  
  34.   _ defaultScreenOfDisplay = (
  35.      defaultScreenOfDisplayIfFail: 
  36.       [|:e| ^error: 'defaultScreenOfDisplay failed: ', e] ).
  37.  
  38.   _ defaultScreenOfDisplayIfFail: failBlock = (
  39.     | myFctObj =
  40.     foreignFct copyName: 
  41.       'DefaultScreenOfDisplay_DefaultScreenOfDisplay_glue' 
  42.       Path: 'xlib_glue.so' IfFail: 
  43.       [ ( | copyName: n = (self). 
  44.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  45.     |
  46.  
  47.     myFctObj value: self With: xlib screen deadCopy IfFail: 
  48.       
  49.       [|:e| ('badTypeError'   isPrefixOf: e)
  50.         ||  ['deadProxyError' isPrefixOf: e]
  51.            ifFalse: [^failBlock value: e] 
  52.               True: [
  53.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  54.                   xlib screen deadCopy IfFail: failBlock 
  55.            ]] ).
  56.  
  57.  
  58.   _ connectionNumber = (
  59.      connectionNumberIfFail: 
  60.       [|:e| ^error: 'connectionNumber failed: ', e] ).
  61.  
  62.   _ connectionNumberIfFail: failBlock = (
  63.     | myFctObj =
  64.     foreignFct copyName: 'ConnectionNumber_ConnectionNumber_glue' Path: 
  65.       'xlib_glue.so' IfFail: 
  66.       [ ( | copyName: n = (self). 
  67.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  68.     |
  69.  
  70.     myFctObj value: self IfFail: 
  71.       
  72.       [|:e| ('badTypeError'   isPrefixOf: e)
  73.         ||  ['deadProxyError' isPrefixOf: e]
  74.            ifFalse: [^failBlock value: e] 
  75.               True: [
  76.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  77.                   failBlock 
  78.            ]] ).
  79.  
  80.  
  81. " visual info  "
  82.  
  83.   ^ xMatchVisualInfoScreen: t0 Depth: t1 Class: t2  = (
  84.      xMatchVisualInfoScreen: t0 Depth: t1 Class: t2 IfFail: 
  85.       [|:e| ^error: 'xMatchVisualInfoScreen:Depth:Class: failed: ', e] ).
  86.  
  87.   ^ xMatchVisualInfoScreen: t0 Depth: t1 Class: t2 IfFail: 
  88.     failBlock = (
  89.     | myFctObj =
  90.     foreignFct copyName: 
  91.       'XMatchVisualInfo_wrap_XMatchVisualInfoScreen_Depth_Class__glue' 
  92.       Path: 'xlib_glue.so' IfFail: 
  93.       [ ( | copyName: n = (self). 
  94.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  95.     |
  96.  
  97.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  98.       xlib xVisualInfo deadCopy IfFail: 
  99.       
  100.       [|:e| ('badTypeError'   isPrefixOf: e)
  101.         ||  ['deadProxyError' isPrefixOf: e]
  102.            ifFalse: [^failBlock value: e] 
  103.               True: [
  104.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  105.                   t0 asSmallInteger With: t1 asSmallInteger 
  106.                   With: t2 asSmallInteger With: 
  107.                   xlib xVisualInfo deadCopy IfFail: 
  108.                   failBlock 
  109.            ]] ).
  110.  
  111.  
  112. " event handling  "
  113.  
  114.   ^ xEventsQueued: t0  = (
  115.      xEventsQueued: t0 IfFail: 
  116.       [|:e| ^error: 'xEventsQueued: failed: ', e] ).
  117.  
  118.   ^ xEventsQueued: t0 IfFail: failBlock = (
  119.     | myFctObj =
  120.     foreignFct copyName: 'XEventsQueued_XEventsQueued__glue' Path: 
  121.       'xlib_glue.so' IfFail: 
  122.       [ ( | copyName: n = (self). 
  123.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  124.     |
  125.  
  126.     myFctObj value: self With: t0 IfFail: 
  127.       
  128.       [|:e| ('badTypeError'   isPrefixOf: e)
  129.         ||  ['deadProxyError' isPrefixOf: e]
  130.            ifFalse: [^failBlock value: e] 
  131.               True: [
  132.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  133.                   t0 asSmallInteger IfFail: failBlock 
  134.            ]] ).
  135.  
  136.  
  137.   ^ xPending = (
  138.      xPendingIfFail: [|:e| ^error: 'xPending failed: ', e] ).
  139.  
  140.   ^ xPendingIfFail: failBlock = (
  141.     | myFctObj =
  142.     foreignFct copyName: 'XPending_XPending_glue' Path: 'xlib_glue.so' 
  143.       IfFail: 
  144.       [ ( | copyName: n = (self). 
  145.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  146.     |
  147.  
  148.     myFctObj value: self IfFail: 
  149.       
  150.       [|:e| ('badTypeError'   isPrefixOf: e)
  151.         ||  ['deadProxyError' isPrefixOf: e]
  152.            ifFalse: [^failBlock value: e] 
  153.               True: [
  154.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  155.                   failBlock 
  156.            ]] ).
  157.  
  158.  
  159.   ^ xNextEventInto: t0  = (
  160.      xNextEventInto: t0 IfFail: 
  161.       [|:e| ^error: 'xNextEventInto: failed: ', e] ).
  162.  
  163.   ^ xNextEventInto: t0 IfFail: failBlock = (
  164.     | myFctObj =
  165.     foreignFct copyName: 'XNextEvent_XNextEventInto__glue' Path: 
  166.       'xlib_glue.so' IfFail: 
  167.       [ ( | copyName: n = (self). 
  168.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  169.     |
  170.  
  171.     myFctObj value: self With: t0 IfFail: 
  172.       
  173.       [|:e| ('badTypeError'   isPrefixOf: e)
  174.         ||  ['deadProxyError' isPrefixOf: e]
  175.            ifFalse: [^failBlock value: e] 
  176.               True: [
  177.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  178.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  179.                   IfFail: failBlock 
  180.            ]] .
  181.     self).
  182.  
  183.  
  184.   ^ xPeekEventInto: t0  = (
  185.      xPeekEventInto: t0 IfFail: 
  186.       [|:e| ^error: 'xPeekEventInto: failed: ', e] ).
  187.  
  188.   ^ xPeekEventInto: t0 IfFail: failBlock = (
  189.     | myFctObj =
  190.     foreignFct copyName: 'XPeekEvent_XPeekEventInto__glue' Path: 
  191.       'xlib_glue.so' IfFail: 
  192.       [ ( | copyName: n = (self). 
  193.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  194.     |
  195.  
  196.     myFctObj value: self With: t0 IfFail: 
  197.       
  198.       [|:e| ('badTypeError'   isPrefixOf: e)
  199.         ||  ['deadProxyError' isPrefixOf: e]
  200.            ifFalse: [^failBlock value: e] 
  201.               True: [
  202.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  203.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  204.                   IfFail: failBlock 
  205.            ]] .
  206.     self).
  207.  
  208.  
  209.   ^ xPutBackEvent: t0  = (
  210.      xPutBackEvent: t0 IfFail: 
  211.       [|:e| ^error: 'xPutBackEvent: failed: ', e] ).
  212.  
  213.   ^ xPutBackEvent: t0 IfFail: failBlock = (
  214.     | myFctObj =
  215.     foreignFct copyName: 'XPutBackEvent_XPutBackEvent__glue' Path: 
  216.       'xlib_glue.so' IfFail: 
  217.       [ ( | copyName: n = (self). 
  218.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  219.     |
  220.  
  221.     myFctObj value: self With: t0 IfFail: 
  222.       
  223.       [|:e| ('badTypeError'   isPrefixOf: e)
  224.         ||  ['deadProxyError' isPrefixOf: e]
  225.            ifFalse: [^failBlock value: e] 
  226.               True: [
  227.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  228.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  229.                   IfFail: failBlock 
  230.            ]] .
  231.     self).
  232.  
  233.  
  234.   ^ xCheckType: t0 OfEvent: t1  = (
  235.      xCheckType: t0 OfEvent: t1 IfFail: 
  236.       [|:e| ^error: 'xCheckType:OfEvent: failed: ', e] ).
  237.  
  238.   ^ xCheckType: t0 OfEvent: t1 IfFail: failBlock = (
  239.     | myFctObj =
  240.     foreignFct copyName: 'XCheckTypedEvent_XCheckType_OfEvent__glue' Path: 
  241.       'xlib_glue.so' IfFail: 
  242.       [ ( | copyName: n = (self). 
  243.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  244.     |
  245.  
  246.     myFctObj value: self With: t0 With: t1 IfFail: 
  247.       
  248.       [|:e| ('badTypeError'   isPrefixOf: e)
  249.         ||  ['deadProxyError' isPrefixOf: e]
  250.            ifFalse: [^failBlock value: e] 
  251.               True: [
  252.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  253.                   t0 asSmallInteger With: 
  254.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  255.                   IfFail: failBlock 
  256.            ]] ).
  257.  
  258.  
  259.   ^ xCheckMask: t0 OfEvent: t1  = (
  260.      xCheckMask: t0 OfEvent: t1 IfFail: 
  261.       [|:e| ^error: 'xCheckMask:OfEvent: failed: ', e] ).
  262.  
  263.   ^ xCheckMask: t0 OfEvent: t1 IfFail: failBlock = (
  264.     | myFctObj =
  265.     foreignFct copyName: 'XCheckMaskEvent_XCheckMask_OfEvent__glue' Path: 
  266.       'xlib_glue.so' IfFail: 
  267.       [ ( | copyName: n = (self). 
  268.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  269.     |
  270.  
  271.     myFctObj value: self With: t0 With: t1 IfFail: 
  272.       
  273.       [|:e| ('badTypeError'   isPrefixOf: e)
  274.         ||  ['deadProxyError' isPrefixOf: e]
  275.            ifFalse: [^failBlock value: e] 
  276.               True: [
  277.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  278.                   t0 asSmallInteger With: 
  279.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  280.                   IfFail: failBlock 
  281.            ]] ).
  282.  
  283.  
  284. " synchronization  "
  285.  
  286.   ^ xFlush = (
  287.      xFlushIfFail: [|:e| ^error: 'xFlush failed: ', e] ).
  288.  
  289.   ^ xFlushIfFail: failBlock = (
  290.     | myFctObj =
  291.     foreignFct copyName: 'XFlush_XFlush_glue' Path: 'xlib_glue.so' IfFail: 
  292.       [ ( | copyName: n = (self). 
  293.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  294.     |
  295.  
  296.     myFctObj value: self IfFail: 
  297.       
  298.       [|:e| ('badTypeError'   isPrefixOf: e)
  299.         ||  ['deadProxyError' isPrefixOf: e]
  300.            ifFalse: [^failBlock value: e] 
  301.               True: [
  302.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  303.                   failBlock 
  304.            ]] .
  305.     self).
  306.  
  307.  
  308.   ^ xSynchronize: t0  = (
  309.      xSynchronize: t0 IfFail: 
  310.       [|:e| ^error: 'xSynchronize: failed: ', e] ).
  311.  
  312.   ^ xSynchronize: t0 IfFail: failBlock = (
  313.     | myFctObj =
  314.     foreignFct copyName: 'XSynchronize_XSynchronize__glue' Path: 
  315.       'xlib_glue.so' IfFail: 
  316.       [ ( | copyName: n = (self). 
  317.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  318.     |
  319.  
  320.     myFctObj value: self With: t0 IfFail: 
  321.       
  322.       [|:e| ('badTypeError'   isPrefixOf: e)
  323.         ||  ['deadProxyError' isPrefixOf: e]
  324.            ifFalse: [^failBlock value: e] 
  325.               True: [
  326.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  327.                   t0 IfFail: failBlock 
  328.            ]] .
  329.     self).
  330.  
  331.  
  332.   ^ xSyncDiscardingIf: t0  = (
  333.      xSyncDiscardingIf: t0 IfFail: 
  334.       [|:e| ^error: 'xSyncDiscardingIf: failed: ', e] ).
  335.  
  336.   ^ xSyncDiscardingIf: t0 IfFail: failBlock = (
  337.     | myFctObj =
  338.     foreignFct copyName: 'XSync_XSyncDiscardingIf__glue' Path: 
  339.       'xlib_glue.so' IfFail: 
  340.       [ ( | copyName: n = (self). 
  341.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  342.     |
  343.  
  344.     myFctObj value: self With: t0 IfFail: 
  345.       
  346.       [|:e| ('badTypeError'   isPrefixOf: e)
  347.         ||  ['deadProxyError' isPrefixOf: e]
  348.            ifFalse: [^failBlock value: e] 
  349.               True: [
  350.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  351.                   t0 IfFail: failBlock 
  352.            ]] .
  353.     self).
  354.  
  355.  
  356. " gc  "
  357.  
  358.   ^ xCreateGCDrawable: t0 ValueMask: t1 Values: t2  = (
  359.      xCreateGCDrawable: t0 ValueMask: t1 Values: t2 IfFail: 
  360.       [|:e| ^error: 'xCreateGCDrawable:ValueMask:Values: failed: ', e] ).
  361.  
  362.   ^ xCreateGCDrawable: t0 ValueMask: t1 Values: t2 IfFail: 
  363.     failBlock = (
  364.     | myFctObj =
  365.     foreignFct copyName: 
  366.       'XCreateGC_XCreateGCDrawable_ValueMask_Values__glue' 
  367.       Path: 'xlib_glue.so' IfFail: 
  368.       [ ( | copyName: n = (self). 
  369.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  370.     |
  371.  
  372.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  373.       xlib graphicsContext deadCopy IfFail: 
  374.       
  375.       [|:e| ('badTypeError'   isPrefixOf: e)
  376.         ||  ['deadProxyError' isPrefixOf: e]
  377.            ifFalse: [^failBlock value: e] 
  378.               True: [
  379.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  380.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  381.                   With: t1 asSmallInteger With: 
  382.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  383.                   With: xlib graphicsContext deadCopy 
  384.                   IfFail: failBlock 
  385.            ]] ).
  386.  
  387.  
  388.   ^ xFreeGC: t0  = (
  389.      xFreeGC: t0 IfFail: [|:e| ^error: 'xFreeGC: failed: ', e] ).
  390.  
  391.   ^ xFreeGC: t0 IfFail: failBlock = (
  392.     | myFctObj =
  393.     foreignFct copyName: 'XFreeGC_XFreeGC__glue' Path: 'xlib_glue.so' 
  394.       IfFail: 
  395.       [ ( | copyName: n = (self). 
  396.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  397.     |
  398.  
  399.     myFctObj value: self With: t0 IfFail: 
  400.       
  401.       [|:e| ('badTypeError'   isPrefixOf: e)
  402.         ||  ['deadProxyError' isPrefixOf: e]
  403.            ifFalse: [^failBlock value: e] 
  404.               True: [
  405.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  406.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  407.                   IfFail: failBlock 
  408.            ]] .
  409.     self).
  410.  
  411.  
  412.   ^ xGetGCValuesGC: t0 ValueMask: t1 Values: t2  = (
  413.      xGetGCValuesGC: t0 ValueMask: t1 Values: t2 IfFail: 
  414.       [|:e| ^error: 'xGetGCValuesGC:ValueMask:Values: failed: ', e] ).
  415.  
  416.   ^ xGetGCValuesGC: t0 ValueMask: t1 Values: t2 IfFail: 
  417.     failBlock = (
  418.     | myFctObj =
  419.     foreignFct copyName: 
  420.       'XGetGCValues_wrap_XGetGCValuesGC_ValueMask_Values__glue' 
  421.       Path: 'xlib_glue.so' IfFail: 
  422.       [ ( | copyName: n = (self). 
  423.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  424.     |
  425.  
  426.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  427.       
  428.       [|:e| ('badTypeError'   isPrefixOf: e)
  429.         ||  ['deadProxyError' isPrefixOf: e]
  430.            ifFalse: [^failBlock value: e] 
  431.               True: [
  432.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  433.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  434.                   With: t1 asSmallInteger With: 
  435.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  436.                   IfFail: failBlock 
  437.            ]] .
  438.     self).
  439.  
  440.  
  441.   ^ xSetGC: t0 Foreground: t1  = (
  442.      xSetGC: t0 Foreground: t1 IfFail: 
  443.       [|:e| ^error: 'xSetGC:Foreground: failed: ', e] ).
  444.  
  445.   ^ xSetGC: t0 Foreground: t1 IfFail: failBlock = (
  446.     | myFctObj =
  447.     foreignFct copyName: 'XSetForeground_XSetGC_Foreground__glue' Path: 
  448.       'xlib_glue.so' IfFail: 
  449.       [ ( | copyName: n = (self). 
  450.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  451.     |
  452.  
  453.     myFctObj value: self With: t0 With: t1 IfFail: 
  454.       
  455.       [|:e| ('badTypeError'   isPrefixOf: e)
  456.         ||  ['deadProxyError' isPrefixOf: e]
  457.            ifFalse: [^failBlock value: e] 
  458.               True: [
  459.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  460.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  461.                   With: t1 asSmallInteger IfFail: failBlock 
  462.            ]] .
  463.     self).
  464.  
  465.  
  466.   ^ xSetGC: t0 Background: t1  = (
  467.      xSetGC: t0 Background: t1 IfFail: 
  468.       [|:e| ^error: 'xSetGC:Background: failed: ', e] ).
  469.  
  470.   ^ xSetGC: t0 Background: t1 IfFail: failBlock = (
  471.     | myFctObj =
  472.     foreignFct copyName: 'XSetBackground_XSetGC_Background__glue' Path: 
  473.       'xlib_glue.so' IfFail: 
  474.       [ ( | copyName: n = (self). 
  475.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  476.     |
  477.  
  478.     myFctObj value: self With: t0 With: t1 IfFail: 
  479.       
  480.       [|:e| ('badTypeError'   isPrefixOf: e)
  481.         ||  ['deadProxyError' isPrefixOf: e]
  482.            ifFalse: [^failBlock value: e] 
  483.               True: [
  484.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  485.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  486.                   With: t1 asSmallInteger IfFail: failBlock 
  487.            ]] .
  488.     self).
  489.  
  490.  
  491.   ^ xSetGC: t0 Function: t1  = (
  492.      xSetGC: t0 Function: t1 IfFail: 
  493.       [|:e| ^error: 'xSetGC:Function: failed: ', e] ).
  494.  
  495.   ^ xSetGC: t0 Function: t1 IfFail: failBlock = (
  496.     | myFctObj =
  497.     foreignFct copyName: 'XSetFunction_XSetGC_Function__glue' Path: 
  498.       'xlib_glue.so' IfFail: 
  499.       [ ( | copyName: n = (self). 
  500.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  501.     |
  502.  
  503.     myFctObj value: self With: t0 With: t1 IfFail: 
  504.       
  505.       [|:e| ('badTypeError'   isPrefixOf: e)
  506.         ||  ['deadProxyError' isPrefixOf: e]
  507.            ifFalse: [^failBlock value: e] 
  508.               True: [
  509.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  510.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  511.                   With: t1 asSmallInteger IfFail: failBlock 
  512.            ]] .
  513.     self).
  514.  
  515.  
  516.   ^ xSetGC: t0 PlaneMask: t1  = (
  517.      xSetGC: t0 PlaneMask: t1 IfFail: 
  518.       [|:e| ^error: 'xSetGC:PlaneMask: failed: ', e] ).
  519.  
  520.   ^ xSetGC: t0 PlaneMask: t1 IfFail: failBlock = (
  521.     | myFctObj =
  522.     foreignFct copyName: 'XSetPlaneMask_XSetGC_PlaneMask__glue' Path: 
  523.       'xlib_glue.so' IfFail: 
  524.       [ ( | copyName: n = (self). 
  525.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  526.     |
  527.  
  528.     myFctObj value: self With: t0 With: t1 IfFail: 
  529.       
  530.       [|:e| ('badTypeError'   isPrefixOf: e)
  531.         ||  ['deadProxyError' isPrefixOf: e]
  532.            ifFalse: [^failBlock value: e] 
  533.               True: [
  534.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  535.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  536.                   With: t1 asSmallInteger IfFail: failBlock 
  537.            ]] .
  538.     self).
  539.  
  540.  
  541.   ^ xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  542.     t3 JoinStyle: t4  = (
  543.      xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  544.       t3 JoinStyle: t4 IfFail: 
  545.       [|:e| ^error: 'xSetGC:LineAttributesWidth:LineStyle:CapStyle:JoinStyle: failed: ', e] ).
  546.  
  547.   ^ xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  548.     t3 JoinStyle: t4 IfFail: failBlock = (
  549.     | myFctObj =
  550.     foreignFct copyName: 
  551.       'XSetLineAttributes_XSetGC_LineAttributesWidth_LineStyle_CapStyle_JoinStyle__glue' 
  552.       Path: 'xlib_glue.so' IfFail: 
  553.       [ ( | copyName: n = (self). 
  554.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  555.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  556.     |
  557.  
  558.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  559.       IfFail: 
  560.       
  561.       [|:e| ('badTypeError'   isPrefixOf: e)
  562.         ||  ['deadProxyError' isPrefixOf: e]
  563.            ifFalse: [^failBlock value: e] 
  564.               True: [
  565.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  566.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  567.                   With: t1 asSmallInteger With: 
  568.                   t2 asSmallInteger With: t3 asSmallInteger 
  569.                   With: t4 asSmallInteger IfFail: failBlock 
  570.            ]] .
  571.     self).
  572.  
  573.  
  574.   ^ xSetGC: t0 Font: t1  = (
  575.      xSetGC: t0 Font: t1 IfFail: 
  576.       [|:e| ^error: 'xSetGC:Font: failed: ', e] ).
  577.  
  578.   ^ xSetGC: t0 Font: t1 IfFail: failBlock = (
  579.     | myFctObj =
  580.     foreignFct copyName: 'XSetFont_XSetGC_Font__glue' Path: 'xlib_glue.so' 
  581.       IfFail: 
  582.       [ ( | copyName: n = (self). 
  583.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  584.     |
  585.  
  586.     myFctObj value: self With: t0 With: t1 IfFail: 
  587.       
  588.       [|:e| ('badTypeError'   isPrefixOf: e)
  589.         ||  ['deadProxyError' isPrefixOf: e]
  590.            ifFalse: [^failBlock value: e] 
  591.               True: [
  592.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  593.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  594.                   With: 
  595.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  596.                   IfFail: failBlock 
  597.            ]] .
  598.     self).
  599.  
  600.  
  601.   ^ xSetGC: t0 GraphicsExposures: t1  = (
  602.      xSetGC: t0 GraphicsExposures: t1 IfFail: 
  603.       [|:e| ^error: 'xSetGC:GraphicsExposures: failed: ', e] ).
  604.  
  605.   ^ xSetGC: t0 GraphicsExposures: t1 IfFail: failBlock = (
  606.     | myFctObj =
  607.     foreignFct copyName: 
  608.       'XSetGraphicsExposures_XSetGC_GraphicsExposures__glue' 
  609.       Path: 'xlib_glue.so' IfFail: 
  610.       [ ( | copyName: n = (self). 
  611.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  612.     |
  613.  
  614.     myFctObj value: self With: t0 With: t1 IfFail: 
  615.       
  616.       [|:e| ('badTypeError'   isPrefixOf: e)
  617.         ||  ['deadProxyError' isPrefixOf: e]
  618.            ifFalse: [^failBlock value: e] 
  619.               True: [
  620.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  621.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  622.                   With: t1 IfFail: failBlock 
  623.            ]] .
  624.     self).
  625.  
  626.  
  627.   ^ xSetGC: t0 FillStyle: t1  = (
  628.      xSetGC: t0 FillStyle: t1 IfFail: 
  629.       [|:e| ^error: 'xSetGC:FillStyle: failed: ', e] ).
  630.  
  631.   ^ xSetGC: t0 FillStyle: t1 IfFail: failBlock = (
  632.     | myFctObj =
  633.     foreignFct copyName: 'XSetFillStyle_XSetGC_FillStyle__glue' Path: 
  634.       'xlib_glue.so' IfFail: 
  635.       [ ( | copyName: n = (self). 
  636.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  637.     |
  638.  
  639.     myFctObj value: self With: t0 With: t1 IfFail: 
  640.       
  641.       [|:e| ('badTypeError'   isPrefixOf: e)
  642.         ||  ['deadProxyError' isPrefixOf: e]
  643.            ifFalse: [^failBlock value: e] 
  644.               True: [
  645.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  646.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  647.                   With: t1 asSmallInteger IfFail: failBlock 
  648.            ]] .
  649.     self).
  650.  
  651.  
  652.   ^ xSetGC: t0 FillRule: t1  = (
  653.      xSetGC: t0 FillRule: t1 IfFail: 
  654.       [|:e| ^error: 'xSetGC:FillRule: failed: ', e] ).
  655.  
  656.   ^ xSetGC: t0 FillRule: t1 IfFail: failBlock = (
  657.     | myFctObj =
  658.     foreignFct copyName: 'XSetFillRule_XSetGC_FillRule__glue' Path: 
  659.       'xlib_glue.so' IfFail: 
  660.       [ ( | copyName: n = (self). 
  661.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  662.     |
  663.  
  664.     myFctObj value: self With: t0 With: t1 IfFail: 
  665.       
  666.       [|:e| ('badTypeError'   isPrefixOf: e)
  667.         ||  ['deadProxyError' isPrefixOf: e]
  668.            ifFalse: [^failBlock value: e] 
  669.               True: [
  670.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  671.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  672.                   With: t1 asSmallInteger IfFail: failBlock 
  673.            ]] .
  674.     self).
  675.  
  676.  
  677.   ^ xSetGC: t0 Stipple: t1  = (
  678.      xSetGC: t0 Stipple: t1 IfFail: 
  679.       [|:e| ^error: 'xSetGC:Stipple: failed: ', e] ).
  680.  
  681.   ^ xSetGC: t0 Stipple: t1 IfFail: failBlock = (
  682.     | myFctObj =
  683.     foreignFct copyName: 'XSetStipple_XSetGC_Stipple__glue' Path: 
  684.       'xlib_glue.so' IfFail: 
  685.       [ ( | copyName: n = (self). 
  686.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  687.     |
  688.  
  689.     myFctObj value: self With: t0 With: t1 IfFail: 
  690.       
  691.       [|:e| ('badTypeError'   isPrefixOf: e)
  692.         ||  ['deadProxyError' isPrefixOf: e]
  693.            ifFalse: [^failBlock value: e] 
  694.               True: [
  695.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  696.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  697.                   With: 
  698.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  699.                   IfFail: failBlock 
  700.            ]] .
  701.     self).
  702.  
  703.  
  704.   ^ xQueryBestStippleWidth: t0 Width: t1 Height: t2  = (
  705.      xQueryBestStippleWidth: t0 Width: t1 Height: t2 IfFail: 
  706.       [|:e| ^error: 'xQueryBestStippleWidth:Width:Height: failed: ', e] ).
  707.  
  708.   ^ xQueryBestStippleWidth: t0 Width: t1 Height: t2 IfFail: 
  709.     failBlock = (
  710.     | myFctObj =
  711.     foreignFct copyName: 
  712.       'XQueryBestStippleWidth_XQueryBestStippleWidth_Width_Height__glue' 
  713.       Path: 'xlib_glue.so' IfFail: 
  714.       [ ( | copyName: n = (self). 
  715.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  716.     |
  717.  
  718.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  719.       
  720.       [|:e| ('badTypeError'   isPrefixOf: e)
  721.         ||  ['deadProxyError' isPrefixOf: e]
  722.            ifFalse: [^failBlock value: e] 
  723.               True: [
  724.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  725.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  726.                   With: t1 asSmallInteger With: 
  727.                   t2 asSmallInteger IfFail: failBlock 
  728.            ]] ).
  729.  
  730.  
  731.   ^ xQueryBestStippleHeight: t0 Width: t1 Height: t2  = (
  732.      xQueryBestStippleHeight: t0 Width: t1 Height: t2 IfFail: 
  733.       [|:e| ^error: 'xQueryBestStippleHeight:Width:Height: failed: ', e] ).
  734.  
  735.   ^ xQueryBestStippleHeight: t0 Width: t1 Height: t2 IfFail: 
  736.     failBlock = (
  737.     | myFctObj =
  738.     foreignFct copyName: 
  739.       'XQueryBestStippleWidth_XQueryBestStippleHeight_Width_Height__glue' 
  740.       Path: 'xlib_glue.so' IfFail: 
  741.       [ ( | copyName: n = (self). 
  742.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  743.     |
  744.  
  745.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  746.       
  747.       [|:e| ('badTypeError'   isPrefixOf: e)
  748.         ||  ['deadProxyError' isPrefixOf: e]
  749.            ifFalse: [^failBlock value: e] 
  750.               True: [
  751.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  752.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  753.                   With: t1 asSmallInteger With: 
  754.                   t2 asSmallInteger IfFail: failBlock 
  755.            ]] ).
  756.  
  757.  
  758. " atom  "
  759.  
  760.   _ xInternAtom: t0 OnlyIfExists: t1  = (
  761.      xInternAtom: t0 OnlyIfExists: t1 IfFail: 
  762.       [|:e| ^error: 'xInternAtom:OnlyIfExists: failed: ', e] ).
  763.  
  764.   _ xInternAtom: t0 OnlyIfExists: t1 IfFail: failBlock = (
  765.     | myFctObj =
  766.     foreignFct copyName: 'XInternAtom_XInternAtom_OnlyIfExists__glue' 
  767.       Path: 'xlib_glue.so' IfFail: 
  768.       [ ( | copyName: n = (self). 
  769.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  770.     |
  771.  
  772.     myFctObj value: self With: t0 With: t1 With: xlib atom deadCopy 
  773.       IfFail: 
  774.       
  775.       [|:e| ('badTypeError'   isPrefixOf: e)
  776.         ||  ['deadProxyError' isPrefixOf: e]
  777.            ifFalse: [^failBlock value: e] 
  778.               True: [
  779.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  780.                   t0 asByteVector With: t1 With: 
  781.                   xlib atom deadCopy IfFail: failBlock 
  782.            ]] ).
  783.  
  784.  
  785. " window  "
  786.  
  787.   ^ xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  788.     BorderWidth: t5 Border: t6 Background: t7  = (
  789.      xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  790.       BorderWidth: t5 Border: t6 Background: t7 IfFail: 
  791.       [|:e| ^error: 'xCreateSimpleWindowIn:X:Y:Width:Height:BorderWidth:Border:Background: failed: ', e] ).
  792.  
  793.   ^ xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  794.     BorderWidth: t5 Border: t6 Background: t7 IfFail: 
  795.     failBlock = (
  796.     | myFctObj =
  797.     foreignFct copyName: 
  798.       'XCreateSimpleWindow_XCreateSimpleWindowIn_X_Y_Width_Height_BorderWidth_Border_Background__glue' 
  799.       Path: 'xlib_glue.so' IfFail: 
  800.       [ ( | copyName: n = (self). 
  801.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  802.              With: t6 With: t7 With: t8 With: t9 IfFail: fb = (fb value: 'could not link'). | ) ] 
  803.     |
  804.  
  805.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  806.       With: t5 With: t6 With: t7 With: xlib window deadCopy 
  807.       IfFail: 
  808.       
  809.       [|:e| ('badTypeError'   isPrefixOf: e)
  810.         ||  ['deadProxyError' isPrefixOf: e]
  811.            ifFalse: [^failBlock value: e] 
  812.               True: [
  813.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  814.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  815.                   With: t1 asSmallInteger With: 
  816.                   t2 asSmallInteger With: t3 asSmallInteger 
  817.                   With: t4 asSmallInteger With: 
  818.                   t5 asSmallInteger With: t6 asSmallInteger 
  819.                   With: t7 asSmallInteger With: 
  820.                   xlib window deadCopy IfFail: failBlock 
  821.            ]] ).
  822.  
  823.  
  824.   ^ xSetWMProtocolOfWindow: t0 Protocol: t1  = (
  825.      xSetWMProtocolOfWindow: t0 Protocol: t1 IfFail: 
  826.       [|:e| ^error: 'xSetWMProtocolOfWindow:Protocol: failed: ', e] ).
  827.  
  828.   ^ xSetWMProtocolOfWindow: t0 Protocol: t1 IfFail: failBlock = (
  829.     | myFctObj =
  830.     foreignFct copyName: 
  831.       'XSetWMProtocol_wrap_XSetWMProtocolOfWindow_Protocol__glue' 
  832.       Path: 'xlib_glue.so' IfFail: 
  833.       [ ( | copyName: n = (self). 
  834.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  835.     |
  836.  
  837.     myFctObj value: self With: t0 With: t1 IfFail: 
  838.       
  839.       [|:e| ('badTypeError'   isPrefixOf: e)
  840.         ||  ['deadProxyError' isPrefixOf: e]
  841.            ifFalse: [^failBlock value: e] 
  842.               True: [
  843.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  844.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  845.                   With: 
  846.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  847.                   IfFail: failBlock 
  848.            ]] ).
  849.  
  850.  
  851.   ^ xSetWMNameOfWindow: t0 To: t1  = (
  852.      xSetWMNameOfWindow: t0 To: t1 IfFail: 
  853.       [|:e| ^error: 'xSetWMNameOfWindow:To: failed: ', e] ).
  854.  
  855.   ^ xSetWMNameOfWindow: t0 To: t1 IfFail: failBlock = (
  856.     | myFctObj =
  857.     foreignFct copyName: 'XSetWMName_XSetWMNameOfWindow_To__glue' Path: 
  858.       'xlib_glue.so' IfFail: 
  859.       [ ( | copyName: n = (self). 
  860.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  861.     |
  862.  
  863.     myFctObj value: self With: t0 With: t1 IfFail: 
  864.       
  865.       [|:e| ('badTypeError'   isPrefixOf: e)
  866.         ||  ['deadProxyError' isPrefixOf: e]
  867.            ifFalse: [^failBlock value: e] 
  868.               True: [
  869.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  870.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  871.                   With: 
  872.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  873.                   IfFail: failBlock 
  874.            ]] .
  875.     self).
  876.  
  877.  
  878.   ^ xSetWMIconNameOfWindow: t0 To: t1  = (
  879.      xSetWMIconNameOfWindow: t0 To: t1 IfFail: 
  880.       [|:e| ^error: 'xSetWMIconNameOfWindow:To: failed: ', e] ).
  881.  
  882.   ^ xSetWMIconNameOfWindow: t0 To: t1 IfFail: failBlock = (
  883.     | myFctObj =
  884.     foreignFct copyName: 'XSetWMIconName_XSetWMIconNameOfWindow_To__glue' 
  885.       Path: 'xlib_glue.so' IfFail: 
  886.       [ ( | copyName: n = (self). 
  887.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  888.     |
  889.  
  890.     myFctObj value: self With: t0 With: t1 IfFail: 
  891.       
  892.       [|:e| ('badTypeError'   isPrefixOf: e)
  893.         ||  ['deadProxyError' isPrefixOf: e]
  894.            ifFalse: [^failBlock value: e] 
  895.               True: [
  896.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  897.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  898.                   With: 
  899.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  900.                   IfFail: failBlock 
  901.            ]] .
  902.     self).
  903.  
  904.  
  905.   ^ xSetWMHintsOfWindow: t0 To: t1  = (
  906.      xSetWMHintsOfWindow: t0 To: t1 IfFail: 
  907.       [|:e| ^error: 'xSetWMHintsOfWindow:To: failed: ', e] ).
  908.  
  909.   ^ xSetWMHintsOfWindow: t0 To: t1 IfFail: failBlock = (
  910.     | myFctObj =
  911.     foreignFct copyName: 'XSetWMHints_XSetWMHintsOfWindow_To__glue' Path: 
  912.       'xlib_glue.so' IfFail: 
  913.       [ ( | copyName: n = (self). 
  914.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  915.     |
  916.  
  917.     myFctObj value: self With: t0 With: t1 IfFail: 
  918.       
  919.       [|:e| ('badTypeError'   isPrefixOf: e)
  920.         ||  ['deadProxyError' isPrefixOf: e]
  921.            ifFalse: [^failBlock value: e] 
  922.               True: [
  923.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  924.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  925.                   With: 
  926.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  927.                   IfFail: failBlock 
  928.            ]] .
  929.     self).
  930.  
  931.  
  932.   ^ xSetWMNormalHintsOfWindow: t0 To: t1  = (
  933.      xSetWMNormalHintsOfWindow: t0 To: t1 IfFail: 
  934.       [|:e| ^error: 'xSetWMNormalHintsOfWindow:To: failed: ', e] ).
  935.  
  936.   ^ xSetWMNormalHintsOfWindow: t0 To: t1 IfFail: failBlock = (
  937.     | myFctObj =
  938.     foreignFct copyName: 
  939.       'XSetWMNormalHints_XSetWMNormalHintsOfWindow_To__glue' 
  940.       Path: 'xlib_glue.so' IfFail: 
  941.       [ ( | copyName: n = (self). 
  942.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  943.     |
  944.  
  945.     myFctObj value: self With: t0 With: t1 IfFail: 
  946.       
  947.       [|:e| ('badTypeError'   isPrefixOf: e)
  948.         ||  ['deadProxyError' isPrefixOf: e]
  949.            ifFalse: [^failBlock value: e] 
  950.               True: [
  951.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  952.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  953.                   With: 
  954.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  955.                   IfFail: failBlock 
  956.            ]] .
  957.     self).
  958.  
  959.  
  960.   ^ xSelectInputOfWindow: t0 EventMask: t1  = (
  961.      xSelectInputOfWindow: t0 EventMask: t1 IfFail: 
  962.       [|:e| ^error: 'xSelectInputOfWindow:EventMask: failed: ', e] ).
  963.  
  964.   ^ xSelectInputOfWindow: t0 EventMask: t1 IfFail: failBlock = (
  965.     | myFctObj =
  966.     foreignFct copyName: 
  967.       'XSelectInput_XSelectInputOfWindow_EventMask__glue' 
  968.       Path: 'xlib_glue.so' IfFail: 
  969.       [ ( | copyName: n = (self). 
  970.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  971.     |
  972.  
  973.     myFctObj value: self With: t0 With: t1 IfFail: 
  974.       
  975.       [|:e| ('badTypeError'   isPrefixOf: e)
  976.         ||  ['deadProxyError' isPrefixOf: e]
  977.            ifFalse: [^failBlock value: e] 
  978.               True: [
  979.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  980.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  981.                   With: t1 asSmallInteger IfFail: failBlock 
  982.            ]] .
  983.     self).
  984.  
  985.  
  986.   ^ xMapWindow: t0  = (
  987.      xMapWindow: t0 IfFail: 
  988.       [|:e| ^error: 'xMapWindow: failed: ', e] ).
  989.  
  990.   ^ xMapWindow: t0 IfFail: failBlock = (
  991.     | myFctObj =
  992.     foreignFct copyName: 'XMapWindow_XMapWindow__glue' Path: 
  993.       'xlib_glue.so' IfFail: 
  994.       [ ( | copyName: n = (self). 
  995.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  996.     |
  997.  
  998.     myFctObj value: self With: t0 IfFail: 
  999.       
  1000.       [|:e| ('badTypeError'   isPrefixOf: e)
  1001.         ||  ['deadProxyError' isPrefixOf: e]
  1002.            ifFalse: [^failBlock value: e] 
  1003.               True: [
  1004.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1005.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1006.                   IfFail: failBlock 
  1007.            ]] .
  1008.     self).
  1009.  
  1010.  
  1011.   ^ xRaiseWindow: t0  = (
  1012.      xRaiseWindow: t0 IfFail: 
  1013.       [|:e| ^error: 'xRaiseWindow: failed: ', e] ).
  1014.  
  1015.   ^ xRaiseWindow: t0 IfFail: failBlock = (
  1016.     | myFctObj =
  1017.     foreignFct copyName: 'XRaiseWindow_XRaiseWindow__glue' Path: 
  1018.       'xlib_glue.so' IfFail: 
  1019.       [ ( | copyName: n = (self). 
  1020.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1021.     |
  1022.  
  1023.     myFctObj value: self With: t0 IfFail: 
  1024.       
  1025.       [|:e| ('badTypeError'   isPrefixOf: e)
  1026.         ||  ['deadProxyError' isPrefixOf: e]
  1027.            ifFalse: [^failBlock value: e] 
  1028.               True: [
  1029.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1030.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1031.                   IfFail: failBlock 
  1032.            ]] .
  1033.     self).
  1034.  
  1035.  
  1036.   ^ xUnmapWindow: t0  = (
  1037.      xUnmapWindow: t0 IfFail: 
  1038.       [|:e| ^error: 'xUnmapWindow: failed: ', e] ).
  1039.  
  1040.   ^ xUnmapWindow: t0 IfFail: failBlock = (
  1041.     | myFctObj =
  1042.     foreignFct copyName: 'XUnmapWindow_XUnmapWindow__glue' Path: 
  1043.       'xlib_glue.so' IfFail: 
  1044.       [ ( | copyName: n = (self). 
  1045.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1046.     |
  1047.  
  1048.     myFctObj value: self With: t0 IfFail: 
  1049.       
  1050.       [|:e| ('badTypeError'   isPrefixOf: e)
  1051.         ||  ['deadProxyError' isPrefixOf: e]
  1052.            ifFalse: [^failBlock value: e] 
  1053.               True: [
  1054.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1055.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1056.                   IfFail: failBlock 
  1057.            ]] .
  1058.     self).
  1059.  
  1060.  
  1061.   ^ xDestroyWindow: t0  = (
  1062.      xDestroyWindow: t0 IfFail: 
  1063.       [|:e| ^error: 'xDestroyWindow: failed: ', e] ).
  1064.  
  1065.   ^ xDestroyWindow: t0 IfFail: failBlock = (
  1066.     | myFctObj =
  1067.     foreignFct copyName: 'XDestroyWindow_XDestroyWindow__glue' Path: 
  1068.       'xlib_glue.so' IfFail: 
  1069.       [ ( | copyName: n = (self). 
  1070.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1071.     |
  1072.  
  1073.     myFctObj value: self With: t0 IfFail: 
  1074.       
  1075.       [|:e| ('badTypeError'   isPrefixOf: e)
  1076.         ||  ['deadProxyError' isPrefixOf: e]
  1077.            ifFalse: [^failBlock value: e] 
  1078.               True: [
  1079.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1080.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1081.                   IfFail: failBlock 
  1082.            ]] .
  1083.     self).
  1084.  
  1085.  
  1086.   ^ xMoveResizeWindow: t0 X: t1 Y: t2 Width: t3 Height: t4  = (
  1087.      xMoveResizeWindow: t0 X: t1 Y: t2 Width: t3 Height: t4 
  1088.       IfFail: 
  1089.       [|:e| ^error: 'xMoveResizeWindow:X:Y:Width:Height: failed: ', e] ).
  1090.  
  1091.   ^ xMoveResizeWindow: t0 X: t1 Y: t2 Width: t3 Height: t4 
  1092.     IfFail: failBlock = (
  1093.     | myFctObj =
  1094.     foreignFct copyName: 
  1095.       'XMoveResizeWindow_XMoveResizeWindow_X_Y_Width_Height__glue' 
  1096.       Path: 'xlib_glue.so' IfFail: 
  1097.       [ ( | copyName: n = (self). 
  1098.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1099.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1100.     |
  1101.  
  1102.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1103.       IfFail: 
  1104.       
  1105.       [|:e| ('badTypeError'   isPrefixOf: e)
  1106.         ||  ['deadProxyError' isPrefixOf: e]
  1107.            ifFalse: [^failBlock value: e] 
  1108.               True: [
  1109.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1110.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1111.                   With: t1 asSmallInteger With: 
  1112.                   t2 asSmallInteger With: t3 asSmallInteger 
  1113.                   With: t4 asSmallInteger IfFail: failBlock 
  1114.            ]] .
  1115.     self).
  1116.  
  1117.  
  1118. " cursor  "
  1119.  
  1120.   ^ xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1121.     SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7  = (
  1122.      xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1123.       SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7 
  1124.       IfFail: 
  1125.       [|:e| ^error: 'xWarpPointerSrcWindow:DestWindow:SrcX:SrcY:SrcWidth:SrcHeight:DestX:DestY: failed: ', e] ).
  1126.  
  1127.   ^ xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1128.     SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7 IfFail: 
  1129.     failBlock = (
  1130.     | myFctObj =
  1131.     foreignFct copyName: 
  1132.       'XWarpPointer_XWarpPointerSrcWindow_DestWindow_SrcX_SrcY_SrcWidth_SrcHeight_DestX_DestY__glue' 
  1133.       Path: 'xlib_glue.so' IfFail: 
  1134.       [ ( | copyName: n = (self). 
  1135.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1136.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1137.     |
  1138.  
  1139.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1140.       With: t5 With: t6 With: t7 IfFail: 
  1141.       
  1142.       [|:e| ('badTypeError'   isPrefixOf: e)
  1143.         ||  ['deadProxyError' isPrefixOf: e]
  1144.            ifFalse: [^failBlock value: e] 
  1145.               True: [
  1146.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1147.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1148.                   With: 
  1149.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1150.                   With: t2 asSmallInteger With: 
  1151.                   t3 asSmallInteger With: t4 asSmallInteger 
  1152.                   With: t5 asSmallInteger With: 
  1153.                   t6 asSmallInteger With: t7 asSmallInteger 
  1154.                   IfFail: failBlock 
  1155.            ]] .
  1156.     self).
  1157.  
  1158.  
  1159.   ^ xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1160.     PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 Cursor: 
  1161.     t6 Time: t7  = (
  1162.      xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1163.       PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 
  1164.       Cursor: t6 Time: t7 IfFail: 
  1165.       [|:e| ^error: 'xGrabPointerWindow:OwnerEvents:EventMask:PointerMode:KeyboardMode:ConfineTo:Cursor:Time: failed: ', e] ).
  1166.  
  1167.   ^ xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1168.     PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 Cursor: 
  1169.     t6 Time: t7 IfFail: failBlock = (
  1170.     | myFctObj =
  1171.     foreignFct copyName: 
  1172.       'XGrabPointer_XGrabPointerWindow_OwnerEvents_EventMask_PointerMode_KeyboardMode_ConfineTo_Cursor_Time__glue' 
  1173.       Path: 'xlib_glue.so' IfFail: 
  1174.       [ ( | copyName: n = (self). 
  1175.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1176.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1177.     |
  1178.  
  1179.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1180.       With: t5 With: t6 With: t7 IfFail: 
  1181.       
  1182.       [|:e| ('badTypeError'   isPrefixOf: e)
  1183.         ||  ['deadProxyError' isPrefixOf: e]
  1184.            ifFalse: [^failBlock value: e] 
  1185.               True: [
  1186.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1187.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1188.                   With: t1 With: t2 asSmallInteger With: 
  1189.                   t3 asSmallInteger With: t4 asSmallInteger 
  1190.                   With: 
  1191.                   (t5 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1192.                   With: 
  1193.                   (t6 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1194.                   With: t7 asSmallInteger IfFail: failBlock 
  1195.            ]] ).
  1196.  
  1197.  
  1198.   ^ xUngrabPointerTime: t0  = (
  1199.      xUngrabPointerTime: t0 IfFail: 
  1200.       [|:e| ^error: 'xUngrabPointerTime: failed: ', e] ).
  1201.  
  1202.   ^ xUngrabPointerTime: t0 IfFail: failBlock = (
  1203.     | myFctObj =
  1204.     foreignFct copyName: 'XUngrabPointer_XUngrabPointerTime__glue' Path: 
  1205.       'xlib_glue.so' IfFail: 
  1206.       [ ( | copyName: n = (self). 
  1207.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1208.     |
  1209.  
  1210.     myFctObj value: self With: t0 IfFail: 
  1211.       
  1212.       [|:e| ('badTypeError'   isPrefixOf: e)
  1213.         ||  ['deadProxyError' isPrefixOf: e]
  1214.            ifFalse: [^failBlock value: e] 
  1215.               True: [
  1216.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1217.                   t0 asSmallInteger IfFail: failBlock 
  1218.            ]] .
  1219.     self).
  1220.  
  1221.  
  1222.   ^ xDefineCursorWindow: t0 Cursor: t1  = (
  1223.      xDefineCursorWindow: t0 Cursor: t1 IfFail: 
  1224.       [|:e| ^error: 'xDefineCursorWindow:Cursor: failed: ', e] ).
  1225.  
  1226.   ^ xDefineCursorWindow: t0 Cursor: t1 IfFail: failBlock = (
  1227.     | myFctObj =
  1228.     foreignFct copyName: 'XDefineCursor_XDefineCursorWindow_Cursor__glue' 
  1229.       Path: 'xlib_glue.so' IfFail: 
  1230.       [ ( | copyName: n = (self). 
  1231.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1232.     |
  1233.  
  1234.     myFctObj value: self With: t0 With: t1 IfFail: 
  1235.       
  1236.       [|:e| ('badTypeError'   isPrefixOf: e)
  1237.         ||  ['deadProxyError' isPrefixOf: e]
  1238.            ifFalse: [^failBlock value: e] 
  1239.               True: [
  1240.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1241.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1242.                   With: 
  1243.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1244.                   IfFail: failBlock 
  1245.            ]] .
  1246.     self).
  1247.  
  1248.  
  1249.   ^ xUndefineCursorWindow: t0  = (
  1250.      xUndefineCursorWindow: t0 IfFail: 
  1251.       [|:e| ^error: 'xUndefineCursorWindow: failed: ', e] ).
  1252.  
  1253.   ^ xUndefineCursorWindow: t0 IfFail: failBlock = (
  1254.     | myFctObj =
  1255.     foreignFct copyName: 'XUndefineCursor_XUndefineCursorWindow__glue' 
  1256.       Path: 'xlib_glue.so' IfFail: 
  1257.       [ ( | copyName: n = (self). 
  1258.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1259.     |
  1260.  
  1261.     myFctObj value: self With: t0 IfFail: 
  1262.       
  1263.       [|:e| ('badTypeError'   isPrefixOf: e)
  1264.         ||  ['deadProxyError' isPrefixOf: e]
  1265.            ifFalse: [^failBlock value: e] 
  1266.               True: [
  1267.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1268.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1269.                   IfFail: failBlock 
  1270.            ]] .
  1271.     self).
  1272.  
  1273.  
  1274.   ^ xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1275.     BackgroundColor: t3 X: t4 Y: t5  = (
  1276.      xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1277.       BackgroundColor: t3 X: t4 Y: t5 IfFail: 
  1278.       [|:e| ^error: 'xCreatePixmapCursorSource:Mask:ForegroundColor:BackgroundColor:X:Y: failed: ', e] ).
  1279.  
  1280.   ^ xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1281.     BackgroundColor: t3 X: t4 Y: t5 IfFail: failBlock = (
  1282.     | myFctObj =
  1283.     foreignFct copyName: 
  1284.       'XCreatePixmapCursor_XCreatePixmapCursorSource_Mask_ForegroundColor_BackgroundColor_X_Y__glue' 
  1285.       Path: 'xlib_glue.so' IfFail: 
  1286.       [ ( | copyName: n = (self). 
  1287.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1288.              With: t6 With: t7 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1289.     |
  1290.  
  1291.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1292.       With: t5 With: xlib cursor deadCopy IfFail: 
  1293.       
  1294.       [|:e| ('badTypeError'   isPrefixOf: e)
  1295.         ||  ['deadProxyError' isPrefixOf: e]
  1296.            ifFalse: [^failBlock value: e] 
  1297.               True: [
  1298.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1299.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1300.                   With: 
  1301.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1302.                   With: 
  1303.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1304.                   With: 
  1305.                   (t3 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1306.                   With: t4 asSmallInteger With: 
  1307.                   t5 asSmallInteger With: 
  1308.                   xlib cursor deadCopy IfFail: failBlock 
  1309.            ]] ).
  1310.  
  1311.  
  1312.   ^ xFreeCursor: t0  = (
  1313.      xFreeCursor: t0 IfFail: 
  1314.       [|:e| ^error: 'xFreeCursor: failed: ', e] ).
  1315.  
  1316.   ^ xFreeCursor: t0 IfFail: failBlock = (
  1317.     | myFctObj =
  1318.     foreignFct copyName: 'XFreeCursor_XFreeCursor__glue' Path: 
  1319.       'xlib_glue.so' IfFail: 
  1320.       [ ( | copyName: n = (self). 
  1321.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1322.     |
  1323.  
  1324.     myFctObj value: self With: t0 IfFail: 
  1325.       
  1326.       [|:e| ('badTypeError'   isPrefixOf: e)
  1327.         ||  ['deadProxyError' isPrefixOf: e]
  1328.            ifFalse: [^failBlock value: e] 
  1329.               True: [
  1330.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1331.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1332.                   IfFail: failBlock 
  1333.            ]] .
  1334.     self).
  1335.  
  1336.  
  1337. " colormap  "
  1338.  
  1339.   ^ xCreateColormapWindow: t0 Visual: t1 Allocate: t2  = (
  1340.      xCreateColormapWindow: t0 Visual: t1 Allocate: t2 IfFail: 
  1341.       [|:e| ^error: 'xCreateColormapWindow:Visual:Allocate: failed: ', e] ).
  1342.  
  1343.   ^ xCreateColormapWindow: t0 Visual: t1 Allocate: t2 IfFail: 
  1344.     failBlock = (
  1345.     | myFctObj =
  1346.     foreignFct copyName: 
  1347.       'XCreateColormap_XCreateColormapWindow_Visual_Allocate__glue' 
  1348.       Path: 'xlib_glue.so' IfFail: 
  1349.       [ ( | copyName: n = (self). 
  1350.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1351.     |
  1352.  
  1353.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  1354.       xlib colormap deadCopy IfFail: 
  1355.       
  1356.       [|:e| ('badTypeError'   isPrefixOf: e)
  1357.         ||  ['deadProxyError' isPrefixOf: e]
  1358.            ifFalse: [^failBlock value: e] 
  1359.               True: [
  1360.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1361.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1362.                   With: 
  1363.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1364.                   With: t2 With: xlib colormap deadCopy 
  1365.                   IfFail: failBlock 
  1366.            ]] ).
  1367.  
  1368.  
  1369.   ^ xFreeColormap: t0  = (
  1370.      xFreeColormap: t0 IfFail: 
  1371.       [|:e| ^error: 'xFreeColormap: failed: ', e] ).
  1372.  
  1373.   ^ xFreeColormap: t0 IfFail: failBlock = (
  1374.     | myFctObj =
  1375.     foreignFct copyName: 'XFreeColormap_XFreeColormap__glue' Path: 
  1376.       'xlib_glue.so' IfFail: 
  1377.       [ ( | copyName: n = (self). 
  1378.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1379.     |
  1380.  
  1381.     myFctObj value: self With: t0 IfFail: 
  1382.       
  1383.       [|:e| ('badTypeError'   isPrefixOf: e)
  1384.         ||  ['deadProxyError' isPrefixOf: e]
  1385.            ifFalse: [^failBlock value: e] 
  1386.               True: [
  1387.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1388.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1389.                   IfFail: failBlock 
  1390.            ]] .
  1391.     self).
  1392.  
  1393.  
  1394.   ^ xSetWindow: t0 Colormap: t1  = (
  1395.      xSetWindow: t0 Colormap: t1 IfFail: 
  1396.       [|:e| ^error: 'xSetWindow:Colormap: failed: ', e] ).
  1397.  
  1398.   ^ xSetWindow: t0 Colormap: t1 IfFail: failBlock = (
  1399.     | myFctObj =
  1400.     foreignFct copyName: 'XSetWindowColormap_XSetWindow_Colormap__glue' 
  1401.       Path: 'xlib_glue.so' IfFail: 
  1402.       [ ( | copyName: n = (self). 
  1403.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1404.     |
  1405.  
  1406.     myFctObj value: self With: t0 With: t1 IfFail: 
  1407.       
  1408.       [|:e| ('badTypeError'   isPrefixOf: e)
  1409.         ||  ['deadProxyError' isPrefixOf: e]
  1410.            ifFalse: [^failBlock value: e] 
  1411.               True: [
  1412.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1413.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1414.                   With: 
  1415.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1416.                   IfFail: failBlock 
  1417.            ]] .
  1418.     self).
  1419.  
  1420.  
  1421.   ^ xQueryColormap: t0 Colors: t1  = (
  1422.      xQueryColormap: t0 Colors: t1 IfFail: 
  1423.       [|:e| ^error: 'xQueryColormap:Colors: failed: ', e] ).
  1424.  
  1425.   ^ xQueryColormap: t0 Colors: t1 IfFail: failBlock = (
  1426.     | myFctObj =
  1427.     foreignFct copyName: 'XQueryColors_wrap_XQueryColormap_Colors__glue' 
  1428.       Path: 'xlib_glue.so' IfFail: 
  1429.       [ ( | copyName: n = (self). 
  1430.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1431.     |
  1432.  
  1433.     myFctObj value: self With: t0 With: t1 IfFail: 
  1434.       
  1435.       [|:e| ('badTypeError'   isPrefixOf: e)
  1436.         ||  ['deadProxyError' isPrefixOf: e]
  1437.            ifFalse: [^failBlock value: e] 
  1438.               True: [
  1439.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1440.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1441.                   With: t1 IfFail: failBlock 
  1442.            ]] .
  1443.     self).
  1444.  
  1445.  
  1446.   ^ xStoreColormap: t0 Colors: t1  = (
  1447.      xStoreColormap: t0 Colors: t1 IfFail: 
  1448.       [|:e| ^error: 'xStoreColormap:Colors: failed: ', e] ).
  1449.  
  1450.   ^ xStoreColormap: t0 Colors: t1 IfFail: failBlock = (
  1451.     | myFctObj =
  1452.     foreignFct copyName: 'XStoreColors_wrap_XStoreColormap_Colors__glue' 
  1453.       Path: 'xlib_glue.so' IfFail: 
  1454.       [ ( | copyName: n = (self). 
  1455.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1456.     |
  1457.  
  1458.     myFctObj value: self With: t0 With: t1 IfFail: 
  1459.       
  1460.       [|:e| ('badTypeError'   isPrefixOf: e)
  1461.         ||  ['deadProxyError' isPrefixOf: e]
  1462.            ifFalse: [^failBlock value: e] 
  1463.               True: [
  1464.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1465.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1466.                   With: t1 IfFail: failBlock 
  1467.            ]] .
  1468.     self).
  1469.  
  1470.  
  1471.   ^ xQueryColormap: t0 Color: t1  = (
  1472.      xQueryColormap: t0 Color: t1 IfFail: 
  1473.       [|:e| ^error: 'xQueryColormap:Color: failed: ', e] ).
  1474.  
  1475.   ^ xQueryColormap: t0 Color: t1 IfFail: failBlock = (
  1476.     | myFctObj =
  1477.     foreignFct copyName: 'XQueryColor_XQueryColormap_Color__glue' Path: 
  1478.       'xlib_glue.so' IfFail: 
  1479.       [ ( | copyName: n = (self). 
  1480.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1481.     |
  1482.  
  1483.     myFctObj value: self With: t0 With: t1 IfFail: 
  1484.       
  1485.       [|:e| ('badTypeError'   isPrefixOf: e)
  1486.         ||  ['deadProxyError' isPrefixOf: e]
  1487.            ifFalse: [^failBlock value: e] 
  1488.               True: [
  1489.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1490.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1491.                   With: 
  1492.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1493.                   IfFail: failBlock 
  1494.            ]] .
  1495.     self).
  1496.  
  1497.  
  1498.   ^ xStoreColormap: t0 Color: t1  = (
  1499.      xStoreColormap: t0 Color: t1 IfFail: 
  1500.       [|:e| ^error: 'xStoreColormap:Color: failed: ', e] ).
  1501.  
  1502.   ^ xStoreColormap: t0 Color: t1 IfFail: failBlock = (
  1503.     | myFctObj =
  1504.     foreignFct copyName: 'XStoreColor_XStoreColormap_Color__glue' Path: 
  1505.       'xlib_glue.so' IfFail: 
  1506.       [ ( | copyName: n = (self). 
  1507.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1508.     |
  1509.  
  1510.     myFctObj value: self With: t0 With: t1 IfFail: 
  1511.       
  1512.       [|:e| ('badTypeError'   isPrefixOf: e)
  1513.         ||  ['deadProxyError' isPrefixOf: e]
  1514.            ifFalse: [^failBlock value: e] 
  1515.               True: [
  1516.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1517.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1518.                   With: 
  1519.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1520.                   IfFail: failBlock 
  1521.            ]] .
  1522.     self).
  1523.  
  1524.  
  1525. " pixmap  "
  1526.  
  1527.   ^ xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3  = (
  1528.      xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3 
  1529.       IfFail: 
  1530.       [|:e| ^error: 'xCreateBitmapDrawable:Data:Width:Height: failed: ', e] ).
  1531.  
  1532.   ^ xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3 
  1533.     IfFail: failBlock = (
  1534.     | myFctObj =
  1535.     foreignFct copyName: 
  1536.       'XCreateBitmapFromData_XCreateBitmapDrawable_Data_Width_Height__glue' 
  1537.       Path: 'xlib_glue.so' IfFail: 
  1538.       [ ( | copyName: n = (self). 
  1539.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1540.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1541.     |
  1542.  
  1543.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: 
  1544.       xlib pixmap deadCopy IfFail: 
  1545.       
  1546.       [|:e| ('badTypeError'   isPrefixOf: e)
  1547.         ||  ['deadProxyError' isPrefixOf: e]
  1548.            ifFalse: [^failBlock value: e] 
  1549.               True: [
  1550.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1551.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1552.                   With: t1 asByteVector With: 
  1553.                   t2 asSmallInteger With: t3 asSmallInteger 
  1554.                   With: xlib pixmap deadCopy IfFail: 
  1555.                   failBlock 
  1556.            ]] ).
  1557.  
  1558.  
  1559.   ^ xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3  = (
  1560.      xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3 IfFail: 
  1561.       [|:e| ^error: 'xCreatePixmap:Width:Height:Depth: failed: ', e] ).
  1562.  
  1563.   ^ xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3 IfFail: 
  1564.     failBlock = (
  1565.     | myFctObj =
  1566.     foreignFct copyName: 
  1567.       'XCreatePixmap_XCreatePixmap_Width_Height_Depth__glue' 
  1568.       Path: 'xlib_glue.so' IfFail: 
  1569.       [ ( | copyName: n = (self). 
  1570.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1571.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1572.     |
  1573.  
  1574.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: 
  1575.       xlib pixmap deadCopy IfFail: 
  1576.       
  1577.       [|:e| ('badTypeError'   isPrefixOf: e)
  1578.         ||  ['deadProxyError' isPrefixOf: e]
  1579.            ifFalse: [^failBlock value: e] 
  1580.               True: [
  1581.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1582.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1583.                   With: t1 asSmallInteger With: 
  1584.                   t2 asSmallInteger With: t3 asSmallInteger 
  1585.                   With: xlib pixmap deadCopy IfFail: 
  1586.                   failBlock 
  1587.            ]] ).
  1588.  
  1589.  
  1590.   ^ xFreePixmap: t0  = (
  1591.      xFreePixmap: t0 IfFail: 
  1592.       [|:e| ^error: 'xFreePixmap: failed: ', e] ).
  1593.  
  1594.   ^ xFreePixmap: t0 IfFail: failBlock = (
  1595.     | myFctObj =
  1596.     foreignFct copyName: 'XFreePixmap_XFreePixmap__glue' Path: 
  1597.       'xlib_glue.so' IfFail: 
  1598.       [ ( | copyName: n = (self). 
  1599.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1600.     |
  1601.  
  1602.     myFctObj value: self With: t0 IfFail: 
  1603.       
  1604.       [|:e| ('badTypeError'   isPrefixOf: e)
  1605.         ||  ['deadProxyError' isPrefixOf: e]
  1606.            ifFalse: [^failBlock value: e] 
  1607.               True: [
  1608.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1609.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1610.                   IfFail: failBlock 
  1611.            ]] .
  1612.     self).
  1613.  
  1614.  
  1615. " drawing  "
  1616.  
  1617.   ^ xClearWindow: t0  = (
  1618.      xClearWindow: t0 IfFail: 
  1619.       [|:e| ^error: 'xClearWindow: failed: ', e] ).
  1620.  
  1621.   ^ xClearWindow: t0 IfFail: failBlock = (
  1622.     | myFctObj =
  1623.     foreignFct copyName: 'XClearWindow_XClearWindow__glue' Path: 
  1624.       'xlib_glue.so' IfFail: 
  1625.       [ ( | copyName: n = (self). 
  1626.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1627.     |
  1628.  
  1629.     myFctObj value: self With: t0 IfFail: 
  1630.       
  1631.       [|:e| ('badTypeError'   isPrefixOf: e)
  1632.         ||  ['deadProxyError' isPrefixOf: e]
  1633.            ifFalse: [^failBlock value: e] 
  1634.               True: [
  1635.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1636.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1637.                   IfFail: failBlock 
  1638.            ]] .
  1639.     self).
  1640.  
  1641.  
  1642.   ^ xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1643.     t5 Height: t6 DestX: t7 DestY: t8  = (
  1644.      xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1645.       t5 Height: t6 DestX: t7 DestY: t8 IfFail: 
  1646.       [|:e| ^error: 'xCopyAreaSrc:Dest:GC:SrcX:SrcY:Width:Height:DestX:DestY: failed: ', e] ).
  1647.  
  1648.   ^ xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1649.     t5 Height: t6 DestX: t7 DestY: t8 IfFail: failBlock = (
  1650.     | myFctObj =
  1651.     foreignFct copyName: 
  1652.       'XCopyArea_XCopyAreaSrc_Dest_GC_SrcX_SrcY_Width_Height_DestX_DestY__glue' 
  1653.       Path: 'xlib_glue.so' IfFail: 
  1654.       [ ( | copyName: n = (self). 
  1655.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1656.              With: t6 With: t7 With: t8 With: t9 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1657.     |
  1658.  
  1659.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1660.       With: t5 With: t6 With: t7 With: t8 IfFail: 
  1661.       
  1662.       [|:e| ('badTypeError'   isPrefixOf: e)
  1663.         ||  ['deadProxyError' isPrefixOf: e]
  1664.            ifFalse: [^failBlock value: e] 
  1665.               True: [
  1666.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1667.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1668.                   With: 
  1669.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1670.                   With: 
  1671.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1672.                   With: t3 asSmallInteger With: 
  1673.                   t4 asSmallInteger With: t5 asSmallInteger 
  1674.                   With: t6 asSmallInteger With: 
  1675.                   t7 asSmallInteger With: t8 asSmallInteger 
  1676.                   IfFail: failBlock 
  1677.            ]] .
  1678.     self).
  1679.  
  1680.  
  1681.   ^ copyBitmap: t0 Dest: t1 GC: t2 Width: t3 Height: t4 DestX: 
  1682.     t5 DestY: t6  = (
  1683.      copyBitmap: t0 Dest: t1 GC: t2 Width: t3 Height: t4 DestX: 
  1684.       t5 DestY: t6 IfFail: 
  1685.       [|:e| ^error: 'copyBitmap:Dest:GC:Width:Height:DestX:DestY: failed: ', e] ).
  1686.  
  1687.   ^ copyBitmap: t0 Dest: t1 GC: t2 Width: t3 Height: t4 DestX: 
  1688.     t5 DestY: t6 IfFail: failBlock = (
  1689.     | myFctObj =
  1690.     foreignFct copyName: 
  1691.       'kjx_copyBitmap_CopyBitmap_Dest_GC_Width_Height_DestX_DestY__glue' 
  1692.       Path: 'xlib_glue.so' IfFail: 
  1693.       [ ( | copyName: n = (self). 
  1694.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1695.              With: t6 With: t7 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1696.     |
  1697.  
  1698.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1699.       With: t5 With: t6 IfFail: 
  1700.       
  1701.       [|:e| ('badTypeError'   isPrefixOf: e)
  1702.         ||  ['deadProxyError' isPrefixOf: e]
  1703.            ifFalse: [^failBlock value: e] 
  1704.               True: [
  1705.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1706.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1707.                   With: 
  1708.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1709.                   With: 
  1710.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1711.                   With: t3 asSmallInteger With: 
  1712.                   t4 asSmallInteger With: t5 asSmallInteger 
  1713.                   With: t6 asSmallInteger IfFail: failBlock 
  1714.            ]] .
  1715.     self).
  1716.  
  1717.  
  1718.   ^ xDrawPoint: t0 GC: t1 X: t2 Y: t3  = (
  1719.      xDrawPoint: t0 GC: t1 X: t2 Y: t3 IfFail: 
  1720.       [|:e| ^error: 'xDrawPoint:GC:X:Y: failed: ', e] ).
  1721.  
  1722.   ^ xDrawPoint: t0 GC: t1 X: t2 Y: t3 IfFail: failBlock = (
  1723.     | myFctObj =
  1724.     foreignFct copyName: 'XDrawPoint_XDrawPoint_GC_X_Y__glue' Path: 
  1725.       'xlib_glue.so' IfFail: 
  1726.       [ ( | copyName: n = (self). 
  1727.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1728.     |
  1729.  
  1730.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 IfFail: 
  1731.       
  1732.       [|:e| ('badTypeError'   isPrefixOf: e)
  1733.         ||  ['deadProxyError' isPrefixOf: e]
  1734.            ifFalse: [^failBlock value: e] 
  1735.               True: [
  1736.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1737.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1738.                   With: 
  1739.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1740.                   With: t2 asSmallInteger With: 
  1741.                   t3 asSmallInteger IfFail: failBlock 
  1742.            ]] .
  1743.     self).
  1744.  
  1745.  
  1746.   ^ xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5  = (
  1747.      xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5 IfFail: 
  1748.       [|:e| ^error: 'xDrawLine:GC:X1:Y1:X2:Y2: failed: ', e] ).
  1749.  
  1750.   ^ xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5 IfFail: 
  1751.     failBlock = (
  1752.     | myFctObj =
  1753.     foreignFct copyName: 'XDrawLine_XDrawLine_GC_X1_Y1_X2_Y2__glue' Path: 
  1754.       'xlib_glue.so' IfFail: 
  1755.       [ ( | copyName: n = (self). 
  1756.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1757.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1758.     |
  1759.  
  1760.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1761.       With: t5 IfFail: 
  1762.       
  1763.       [|:e| ('badTypeError'   isPrefixOf: e)
  1764.         ||  ['deadProxyError' isPrefixOf: e]
  1765.            ifFalse: [^failBlock value: e] 
  1766.               True: [
  1767.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1768.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1769.                   With: 
  1770.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1771.                   With: t2 asSmallInteger With: 
  1772.                   t3 asSmallInteger With: t4 asSmallInteger 
  1773.                   With: t5 asSmallInteger IfFail: failBlock 
  1774.            ]] .
  1775.     self).
  1776.  
  1777.  
  1778.   ^ xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5  = (
  1779.      xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1780.       IfFail: 
  1781.       [|:e| ^error: 'xDrawRectangle:GC:X:Y:Width:Height: failed: ', e] ).
  1782.  
  1783.   ^ xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1784.     IfFail: failBlock = (
  1785.     | myFctObj =
  1786.     foreignFct copyName: 
  1787.       'XDrawRectangle_XDrawRectangle_GC_X_Y_Width_Height__glue' 
  1788.       Path: 'xlib_glue.so' IfFail: 
  1789.       [ ( | copyName: n = (self). 
  1790.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1791.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1792.     |
  1793.  
  1794.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1795.       With: t5 IfFail: 
  1796.       
  1797.       [|:e| ('badTypeError'   isPrefixOf: e)
  1798.         ||  ['deadProxyError' isPrefixOf: e]
  1799.            ifFalse: [^failBlock value: e] 
  1800.               True: [
  1801.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1802.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1803.                   With: 
  1804.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1805.                   With: t2 asSmallInteger With: 
  1806.                   t3 asSmallInteger With: t4 asSmallInteger 
  1807.                   With: t5 asSmallInteger IfFail: failBlock 
  1808.            ]] .
  1809.     self).
  1810.  
  1811.  
  1812.   ^ xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5  = (
  1813.      xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1814.       IfFail: 
  1815.       [|:e| ^error: 'xFillRectangle:GC:X:Y:Width:Height: failed: ', e] ).
  1816.  
  1817.   ^ xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1818.     IfFail: failBlock = (
  1819.     | myFctObj =
  1820.     foreignFct copyName: 
  1821.       'XFillRectangle_XFillRectangle_GC_X_Y_Width_Height__glue' 
  1822.       Path: 'xlib_glue.so' IfFail: 
  1823.       [ ( | copyName: n = (self). 
  1824.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1825.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1826.     |
  1827.  
  1828.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1829.       With: t5 IfFail: 
  1830.       
  1831.       [|:e| ('badTypeError'   isPrefixOf: e)
  1832.         ||  ['deadProxyError' isPrefixOf: e]
  1833.            ifFalse: [^failBlock value: e] 
  1834.               True: [
  1835.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1836.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1837.                   With: 
  1838.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1839.                   With: t2 asSmallInteger With: 
  1840.                   t3 asSmallInteger With: t4 asSmallInteger 
  1841.                   With: t5 asSmallInteger IfFail: failBlock 
  1842.            ]] .
  1843.     self).
  1844.  
  1845.  
  1846.   ^ xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5  = (
  1847.      xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5 
  1848.       IfFail: 
  1849.       [|:e| ^error: 'xFillPolygon:GC:Xs:Ys:Shape:Mode: failed: ', e] ).
  1850.  
  1851.   ^ xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5 
  1852.     IfFail: failBlock = (
  1853.     | myFctObj =
  1854.     foreignFct copyName: 
  1855.       'XFillPolygon_wrap_XFillPolygon_GC_Xs_Ys_Shape_Mode__glue' 
  1856.       Path: 'xlib_glue.so' IfFail: 
  1857.       [ ( | copyName: n = (self). 
  1858.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1859.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1860.     |
  1861.  
  1862.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1863.       With: t5 IfFail: 
  1864.       
  1865.       [|:e| ('badTypeError'   isPrefixOf: e)
  1866.         ||  ['deadProxyError' isPrefixOf: e]
  1867.            ifFalse: [^failBlock value: e] 
  1868.               True: [
  1869.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1870.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1871.                   With: 
  1872.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1873.                   With: t2 With: t3 With: t4 asSmallInteger 
  1874.                   With: t5 asSmallInteger IfFail: failBlock 
  1875.            ]] .
  1876.     self).
  1877.  
  1878.  
  1879.   ^ xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1880.     StartAngle: t6 EndAngle: t7  = (
  1881.      xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1882.       StartAngle: t6 EndAngle: t7 IfFail: 
  1883.       [|:e| ^error: 'xDrawArc:GC:X:Y:Width:Height:StartAngle:EndAngle: failed: ', e] ).
  1884.  
  1885.   ^ xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1886.     StartAngle: t6 EndAngle: t7 IfFail: failBlock = (
  1887.     | myFctObj =
  1888.     foreignFct copyName: 
  1889.       'XDrawArc_XDrawArc_GC_X_Y_Width_Height_StartAngle_EndAngle__glue' 
  1890.       Path: 'xlib_glue.so' IfFail: 
  1891.       [ ( | copyName: n = (self). 
  1892.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1893.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1894.     |
  1895.  
  1896.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1897.       With: t5 With: t6 With: t7 IfFail: 
  1898.       
  1899.       [|:e| ('badTypeError'   isPrefixOf: e)
  1900.         ||  ['deadProxyError' isPrefixOf: e]
  1901.            ifFalse: [^failBlock value: e] 
  1902.               True: [
  1903.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1904.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1905.                   With: 
  1906.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1907.                   With: t2 asSmallInteger With: 
  1908.                   t3 asSmallInteger With: t4 asSmallInteger 
  1909.                   With: t5 asSmallInteger With: 
  1910.                   t6 asSmallInteger With: t7 asSmallInteger 
  1911.                   IfFail: failBlock 
  1912.            ]] .
  1913.     self).
  1914.  
  1915.  
  1916.   ^ xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1917.     StartAngle: t6 EndAngle: t7  = (
  1918.      xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1919.       StartAngle: t6 EndAngle: t7 IfFail: 
  1920.       [|:e| ^error: 'xFillArc:GC:X:Y:Width:Height:StartAngle:EndAngle: failed: ', e] ).
  1921.  
  1922.   ^ xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1923.     StartAngle: t6 EndAngle: t7 IfFail: failBlock = (
  1924.     | myFctObj =
  1925.     foreignFct copyName: 
  1926.       'XFillArc_XFillArc_GC_X_Y_Width_Height_StartAngle_EndAngle__glue' 
  1927.       Path: 'xlib_glue.so' IfFail: 
  1928.       [ ( | copyName: n = (self). 
  1929.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1930.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1931.     |
  1932.  
  1933.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1934.       With: t5 With: t6 With: t7 IfFail: 
  1935.       
  1936.       [|:e| ('badTypeError'   isPrefixOf: e)
  1937.         ||  ['deadProxyError' isPrefixOf: e]
  1938.            ifFalse: [^failBlock value: e] 
  1939.               True: [
  1940.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1941.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1942.                   With: 
  1943.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1944.                   With: t2 asSmallInteger With: 
  1945.                   t3 asSmallInteger With: t4 asSmallInteger 
  1946.                   With: t5 asSmallInteger With: 
  1947.                   t6 asSmallInteger With: t7 asSmallInteger 
  1948.                   IfFail: failBlock 
  1949.            ]] .
  1950.     self).
  1951.  
  1952.  
  1953.   ^ xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4  = (
  1954.      xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4 IfFail: 
  1955.       [|:e| ^error: 'xDrawString:GC:X:Y:String: failed: ', e] ).
  1956.  
  1957.   ^ xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4 IfFail: 
  1958.     failBlock = (
  1959.     | myFctObj =
  1960.     foreignFct copyName: 'XDrawString_XDrawString_GC_X_Y_String__glue' 
  1961.       Path: 'xlib_glue.so' IfFail: 
  1962.       [ ( | copyName: n = (self). 
  1963.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1964.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1965.     |
  1966.  
  1967.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1968.       IfFail: 
  1969.       
  1970.       [|:e| ('badTypeError'   isPrefixOf: e)
  1971.         ||  ['deadProxyError' isPrefixOf: e]
  1972.            ifFalse: [^failBlock value: e] 
  1973.               True: [
  1974.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1975.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1976.                   With: 
  1977.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1978.                   With: t2 asSmallInteger With: 
  1979.                   t3 asSmallInteger With: t4 asByteVector 
  1980.                   IfFail: failBlock 
  1981.            ]] .
  1982.     self).
  1983.  
  1984.  
  1985. " font  "
  1986.  
  1987.   ^ xQueryFont: t0  = (
  1988.      xQueryFont: t0 IfFail: 
  1989.       [|:e| ^error: 'xQueryFont: failed: ', e] ).
  1990.  
  1991.   ^ xQueryFont: t0 IfFail: failBlock = (
  1992.     | myFctObj =
  1993.     foreignFct copyName: 'XQueryFont_XQueryFont__glue' Path: 
  1994.       'xlib_glue.so' IfFail: 
  1995.       [ ( | copyName: n = (self). 
  1996.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1997.     |
  1998.  
  1999.     myFctObj value: self With: t0 With: xlib xFontStruct deadCopy 
  2000.       IfFail: 
  2001.       
  2002.       [|:e| ('badTypeError'   isPrefixOf: e)
  2003.         ||  ['deadProxyError' isPrefixOf: e]
  2004.            ifFalse: [^failBlock value: e] 
  2005.               True: [
  2006.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2007.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  2008.                   With: xlib xFontStruct deadCopy IfFail: 
  2009.                   failBlock 
  2010.            ]] ).
  2011.  
  2012.  
  2013.   ^ xLoadQueryFont: t0  = (
  2014.      xLoadQueryFont: t0 IfFail: 
  2015.       [|:e| ^error: 'xLoadQueryFont: failed: ', e] ).
  2016.  
  2017.   ^ xLoadQueryFont: t0 IfFail: failBlock = (
  2018.     | myFctObj =
  2019.     foreignFct copyName: 'XLoadQueryFont_wrap_XLoadQueryFont__glue' Path: 
  2020.       'xlib_glue.so' IfFail: 
  2021.       [ ( | copyName: n = (self). 
  2022.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2023.     |
  2024.  
  2025.     myFctObj value: self With: t0 With: xlib xFontStruct deadCopy 
  2026.       IfFail: 
  2027.       
  2028.       [|:e| ('badTypeError'   isPrefixOf: e)
  2029.         ||  ['deadProxyError' isPrefixOf: e]
  2030.            ifFalse: [^failBlock value: e] 
  2031.               True: [
  2032.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2033.                   t0 asByteVector With: 
  2034.                   xlib xFontStruct deadCopy IfFail: 
  2035.                   failBlock 
  2036.            ]] ).
  2037.  
  2038.  
  2039.   ^ xFreeFont: t0  = (
  2040.      xFreeFont: t0 IfFail: 
  2041.       [|:e| ^error: 'xFreeFont: failed: ', e] ).
  2042.  
  2043.   ^ xFreeFont: t0 IfFail: failBlock = (
  2044.     | myFctObj =
  2045.     foreignFct copyName: 'XFreeFont_XFreeFont__glue' Path: 'xlib_glue.so' 
  2046.       IfFail: 
  2047.       [ ( | copyName: n = (self). 
  2048.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2049.     |
  2050.  
  2051.     myFctObj value: self With: t0 IfFail: 
  2052.       
  2053.       [|:e| ('badTypeError'   isPrefixOf: e)
  2054.         ||  ['deadProxyError' isPrefixOf: e]
  2055.            ifFalse: [^failBlock value: e] 
  2056.               True: [
  2057.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2058.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  2059.                   IfFail: failBlock 
  2060.            ]] .
  2061.     self).
  2062.  
  2063.  
  2064. " image  "
  2065.  
  2066.   ^ xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  2067.     t5 Format: t6  = (
  2068.      xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  2069.       t5 Format: t6 IfFail: 
  2070.       [|:e| ^error: 'xGetImage:X:Y:Width:Height:PlaneMask:Format: failed: ', e] ).
  2071.  
  2072.   ^ xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  2073.     t5 Format: t6 IfFail: failBlock = (
  2074.     | myFctObj =
  2075.     foreignFct copyName: 
  2076.       'XGetImage_XGetImage_X_Y_Width_Height_PlaneMask_Format__glue' 
  2077.       Path: 'xlib_glue.so' IfFail: 
  2078.       [ ( | copyName: n = (self). 
  2079.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  2080.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2081.     |
  2082.  
  2083.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  2084.       With: t5 With: t6 With: xlib xImage deadCopy IfFail: 
  2085.       
  2086.       [|:e| ('badTypeError'   isPrefixOf: e)
  2087.         ||  ['deadProxyError' isPrefixOf: e]
  2088.            ifFalse: [^failBlock value: e] 
  2089.               True: [
  2090.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2091.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  2092.                   With: t1 asSmallInteger With: 
  2093.                   t2 asSmallInteger With: t3 asSmallInteger 
  2094.                   With: t4 asSmallInteger With: 
  2095.                   t5 asSmallInteger With: t6 asSmallInteger 
  2096.                   With: xlib xImage deadCopy IfFail: 
  2097.                   failBlock 
  2098.            ]] ).
  2099.  
  2100.  
  2101. | )
  2102.  
  2103. traits xlib window raw _AddSlots: ( |
  2104.  
  2105.   ^ nullWindow = (
  2106.      nullWindowIfFail: [|:e| ^error: 'nullWindow failed: ', e] ).
  2107.  
  2108.   ^ nullWindowIfFail: failBlock = (
  2109.     | myFctObj =
  2110.     foreignFct copyName: 'NULL_NullWindow_glue' Path: 'xlib_glue.so' 
  2111.       IfFail: 
  2112.       [ ( | copyName: n = (self). 
  2113.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2114.     |
  2115.  
  2116.     myFctObj value: xlib window deadCopy IfFail: failBlock ).
  2117.  
  2118.  
  2119. | )
  2120.  
  2121. traits xlib cursor raw _AddSlots: ( |
  2122.  
  2123.   ^ nullCursor = (
  2124.      nullCursorIfFail: [|:e| ^error: 'nullCursor failed: ', e] ).
  2125.  
  2126.   ^ nullCursorIfFail: failBlock = (
  2127.     | myFctObj =
  2128.     foreignFct copyName: 'NULL_NullCursor_glue' Path: 'xlib_glue.so' 
  2129.       IfFail: 
  2130.       [ ( | copyName: n = (self). 
  2131.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2132.     |
  2133.  
  2134.     myFctObj value: xlib cursor deadCopy IfFail: failBlock ).
  2135.  
  2136.  
  2137. | )
  2138.  
  2139. traits xlib screen raw _AddSlots: ( |
  2140.  
  2141.   ^ rootWindowOfScreen = (
  2142.      rootWindowOfScreenIfFail: 
  2143.       [|:e| ^error: 'rootWindowOfScreen failed: ', e] ).
  2144.  
  2145.   ^ rootWindowOfScreenIfFail: failBlock = (
  2146.     | myFctObj =
  2147.     foreignFct copyName: 'RootWindowOfScreen_RootWindowOfScreen_glue' 
  2148.       Path: 'xlib_glue.so' IfFail: 
  2149.       [ ( | copyName: n = (self). 
  2150.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2151.     |
  2152.  
  2153.     myFctObj value: self With: xlib window deadCopy IfFail: 
  2154.       
  2155.       [|:e| ('badTypeError'   isPrefixOf: e)
  2156.         ||  ['deadProxyError' isPrefixOf: e]
  2157.            ifFalse: [^failBlock value: e] 
  2158.               True: [
  2159.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2160.                   xlib window deadCopy IfFail: failBlock 
  2161.            ]] ).
  2162.  
  2163.  
  2164.   ^ defaultVisualOfScreen = (
  2165.      defaultVisualOfScreenIfFail: 
  2166.       [|:e| ^error: 'defaultVisualOfScreen failed: ', e] ).
  2167.  
  2168.   ^ defaultVisualOfScreenIfFail: failBlock = (
  2169.     | myFctObj =
  2170.     foreignFct copyName: 
  2171.       'DefaultVisualOfScreen_DefaultVisualOfScreen_glue' 
  2172.       Path: 'xlib_glue.so' IfFail: 
  2173.       [ ( | copyName: n = (self). 
  2174.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2175.     |
  2176.  
  2177.     myFctObj value: self With: xlib visual deadCopy IfFail: 
  2178.       
  2179.       [|:e| ('badTypeError'   isPrefixOf: e)
  2180.         ||  ['deadProxyError' isPrefixOf: e]
  2181.            ifFalse: [^failBlock value: e] 
  2182.               True: [
  2183.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2184.                   xlib visual deadCopy IfFail: failBlock 
  2185.            ]] ).
  2186.  
  2187.  
  2188.   ^ defaultGCOfScreen = (
  2189.      defaultGCOfScreenIfFail: 
  2190.       [|:e| ^error: 'defaultGCOfScreen failed: ', e] ).
  2191.  
  2192.   ^ defaultGCOfScreenIfFail: failBlock = (
  2193.     | myFctObj =
  2194.     foreignFct copyName: 'DefaultGCOfScreen_DefaultGCOfScreen_glue' Path: 
  2195.       'xlib_glue.so' IfFail: 
  2196.       [ ( | copyName: n = (self). 
  2197.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2198.     |
  2199.  
  2200.     myFctObj value: self With: xlib graphicsContext deadCopy IfFail: 
  2201.       
  2202.       [|:e| ('badTypeError'   isPrefixOf: e)
  2203.         ||  ['deadProxyError' isPrefixOf: e]
  2204.            ifFalse: [^failBlock value: e] 
  2205.               True: [
  2206.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2207.                   xlib graphicsContext deadCopy IfFail: 
  2208.                   failBlock 
  2209.            ]] ).
  2210.  
  2211.  
  2212.   ^ defaultColormapOfScreen = (
  2213.      defaultColormapOfScreenIfFail: 
  2214.       [|:e| ^error: 'defaultColormapOfScreen failed: ', e] ).
  2215.  
  2216.   ^ defaultColormapOfScreenIfFail: failBlock = (
  2217.     | myFctObj =
  2218.     foreignFct copyName: 
  2219.       'DefaultColormapOfScreen_DefaultColormapOfScreen_glue' 
  2220.       Path: 'xlib_glue.so' IfFail: 
  2221.       [ ( | copyName: n = (self). 
  2222.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2223.     |
  2224.  
  2225.     myFctObj value: self With: xlib colormap deadCopy IfFail: 
  2226.       
  2227.       [|:e| ('badTypeError'   isPrefixOf: e)
  2228.         ||  ['deadProxyError' isPrefixOf: e]
  2229.            ifFalse: [^failBlock value: e] 
  2230.               True: [
  2231.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2232.                   xlib colormap deadCopy IfFail: failBlock 
  2233.            ]] ).
  2234.  
  2235.  
  2236.   ^ blackPixelOfScreen = (
  2237.      blackPixelOfScreenIfFail: 
  2238.       [|:e| ^error: 'blackPixelOfScreen failed: ', e] ).
  2239.  
  2240.   ^ blackPixelOfScreenIfFail: failBlock = (
  2241.     | myFctObj =
  2242.     foreignFct copyName: 'BlackPixelOfScreen_BlackPixelOfScreen_glue' 
  2243.       Path: 'xlib_glue.so' IfFail: 
  2244.       [ ( | copyName: n = (self). 
  2245.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2246.     |
  2247.  
  2248.     myFctObj value: self IfFail: 
  2249.       
  2250.       [|:e| ('badTypeError'   isPrefixOf: e)
  2251.         ||  ['deadProxyError' isPrefixOf: e]
  2252.            ifFalse: [^failBlock value: e] 
  2253.               True: [
  2254.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2255.                   failBlock 
  2256.            ]] ).
  2257.  
  2258.  
  2259.   ^ whitePixelOfScreen = (
  2260.      whitePixelOfScreenIfFail: 
  2261.       [|:e| ^error: 'whitePixelOfScreen failed: ', e] ).
  2262.  
  2263.   ^ whitePixelOfScreenIfFail: failBlock = (
  2264.     | myFctObj =
  2265.     foreignFct copyName: 'WhitePixelOfScreen_WhitePixelOfScreen_glue' 
  2266.       Path: 'xlib_glue.so' IfFail: 
  2267.       [ ( | copyName: n = (self). 
  2268.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2269.     |
  2270.  
  2271.     myFctObj value: self IfFail: 
  2272.       
  2273.       [|:e| ('badTypeError'   isPrefixOf: e)
  2274.         ||  ['deadProxyError' isPrefixOf: e]
  2275.            ifFalse: [^failBlock value: e] 
  2276.               True: [
  2277.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2278.                   failBlock 
  2279.            ]] ).
  2280.  
  2281.  
  2282.   ^ widthOfScreen = (
  2283.      widthOfScreenIfFail: 
  2284.       [|:e| ^error: 'widthOfScreen failed: ', e] ).
  2285.  
  2286.   ^ widthOfScreenIfFail: failBlock = (
  2287.     | myFctObj =
  2288.     foreignFct copyName: 'WidthOfScreen_WidthOfScreen_glue' Path: 
  2289.       'xlib_glue.so' IfFail: 
  2290.       [ ( | copyName: n = (self). 
  2291.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2292.     |
  2293.  
  2294.     myFctObj value: self IfFail: 
  2295.       
  2296.       [|:e| ('badTypeError'   isPrefixOf: e)
  2297.         ||  ['deadProxyError' isPrefixOf: e]
  2298.            ifFalse: [^failBlock value: e] 
  2299.               True: [
  2300.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2301.                   failBlock 
  2302.            ]] ).
  2303.  
  2304.  
  2305.   ^ heightOfScreen = (
  2306.      heightOfScreenIfFail: 
  2307.       [|:e| ^error: 'heightOfScreen failed: ', e] ).
  2308.  
  2309.   ^ heightOfScreenIfFail: failBlock = (
  2310.     | myFctObj =
  2311.     foreignFct copyName: 'HeightOfScreen_HeightOfScreen_glue' Path: 
  2312.       'xlib_glue.so' IfFail: 
  2313.       [ ( | copyName: n = (self). 
  2314.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2315.     |
  2316.  
  2317.     myFctObj value: self IfFail: 
  2318.       
  2319.       [|:e| ('badTypeError'   isPrefixOf: e)
  2320.         ||  ['deadProxyError' isPrefixOf: e]
  2321.            ifFalse: [^failBlock value: e] 
  2322.               True: [
  2323.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2324.                   failBlock 
  2325.            ]] ).
  2326.  
  2327.  
  2328.   ^ defaultDepthOfScreen = (
  2329.      defaultDepthOfScreenIfFail: 
  2330.       [|:e| ^error: 'defaultDepthOfScreen failed: ', e] ).
  2331.  
  2332.   ^ defaultDepthOfScreenIfFail: failBlock = (
  2333.     | myFctObj =
  2334.     foreignFct copyName: 'DefaultDepthOfScreen_DefaultDepthOfScreen_glue' 
  2335.       Path: 'xlib_glue.so' IfFail: 
  2336.       [ ( | copyName: n = (self). 
  2337.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2338.     |
  2339.  
  2340.     myFctObj value: self IfFail: 
  2341.       
  2342.       [|:e| ('badTypeError'   isPrefixOf: e)
  2343.         ||  ['deadProxyError' isPrefixOf: e]
  2344.            ifFalse: [^failBlock value: e] 
  2345.               True: [
  2346.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2347.                   failBlock 
  2348.            ]] ).
  2349.  
  2350.  
  2351.   ^ xScreenNumberOfScreen = (
  2352.      xScreenNumberOfScreenIfFail: 
  2353.       [|:e| ^error: 'xScreenNumberOfScreen failed: ', e] ).
  2354.  
  2355.   ^ xScreenNumberOfScreenIfFail: failBlock = (
  2356.     | myFctObj =
  2357.     foreignFct copyName: 
  2358.       'XScreenNumberOfScreen_XScreenNumberOfScreen_glue' 
  2359.       Path: 'xlib_glue.so' IfFail: 
  2360.       [ ( | copyName: n = (self). 
  2361.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2362.     |
  2363.  
  2364.     myFctObj value: self IfFail: 
  2365.       
  2366.       [|:e| ('badTypeError'   isPrefixOf: e)
  2367.         ||  ['deadProxyError' isPrefixOf: e]
  2368.            ifFalse: [^failBlock value: e] 
  2369.               True: [
  2370.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2371.                   failBlock 
  2372.            ]] ).
  2373.  
  2374.  
  2375. | )
  2376.  
  2377. traits xlib xVisualInfo raw _AddSlots: ( |
  2378.  
  2379.   ^ new = (
  2380.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2381.  
  2382.   ^ newIfFail: failBlock = (
  2383.     | myFctObj =
  2384.     foreignFct copyName: 'XVisualInfo_new_New_glue' Path: 'xlib_glue.so' 
  2385.       IfFail: 
  2386.       [ ( | copyName: n = (self). 
  2387.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2388.     |
  2389.  
  2390.     myFctObj value: xlib xVisualInfo deadCopy IfFail: failBlock ).
  2391.  
  2392.  
  2393.   ^ delete = (
  2394.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2395.  
  2396.   ^ deleteIfFail: failBlock = (
  2397.     | myFctObj =
  2398.     foreignFct copyName: 'XVisualInfo_delete_Delete_glue' Path: 
  2399.       'xlib_glue.so' IfFail: 
  2400.       [ ( | copyName: n = (self). 
  2401.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2402.     |
  2403.  
  2404.     myFctObj value: self IfFail: 
  2405.       
  2406.       [|:e| ('badTypeError'   isPrefixOf: e)
  2407.         ||  ['deadProxyError' isPrefixOf: e]
  2408.            ifFalse: [^failBlock value: e] 
  2409.               True: [
  2410.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2411.                   failBlock 
  2412.            ]] .
  2413.     self).
  2414.  
  2415.  
  2416. | )
  2417.  
  2418. traits xlib xFontStruct raw _AddSlots: ( |
  2419.  
  2420.   ^ xTextWidth: t0  = (
  2421.      xTextWidth: t0 IfFail: 
  2422.       [|:e| ^error: 'xTextWidth: failed: ', e] ).
  2423.  
  2424.   ^ xTextWidth: t0 IfFail: failBlock = (
  2425.     | myFctObj =
  2426.     foreignFct copyName: 'XTextWidth_XTextWidth__glue' Path: 
  2427.       'xlib_glue.so' IfFail: 
  2428.       [ ( | copyName: n = (self). 
  2429.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2430.     |
  2431.  
  2432.     myFctObj value: self With: t0 IfFail: 
  2433.       
  2434.       [|:e| ('badTypeError'   isPrefixOf: e)
  2435.         ||  ['deadProxyError' isPrefixOf: e]
  2436.            ifFalse: [^failBlock value: e] 
  2437.               True: [
  2438.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2439.                   t0 asByteVector IfFail: failBlock 
  2440.            ]] ).
  2441.  
  2442.  
  2443.   ^ fid = (
  2444.      fidIfFail: [|:e| ^error: 'fid failed: ', e] ).
  2445.  
  2446.   ^ fidIfFail: failBlock = (
  2447.     | myFctObj =
  2448.     foreignFct copyName: 'XFontStruct_fid_Fid_glue' Path: 'xlib_glue.so' 
  2449.       IfFail: 
  2450.       [ ( | copyName: n = (self). 
  2451.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2452.     |
  2453.  
  2454.     myFctObj value: self With: xlib font deadCopy IfFail: 
  2455.       
  2456.       [|:e| ('badTypeError'   isPrefixOf: e)
  2457.         ||  ['deadProxyError' isPrefixOf: e]
  2458.            ifFalse: [^failBlock value: e] 
  2459.               True: [
  2460.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2461.                   xlib font deadCopy IfFail: failBlock 
  2462.            ]] ).
  2463.  
  2464.  
  2465.   ^ ascent = (
  2466.      ascentIfFail: [|:e| ^error: 'ascent failed: ', e] ).
  2467.  
  2468.   ^ ascentIfFail: failBlock = (
  2469.     | myFctObj =
  2470.     foreignFct copyName: 'XFontStruct_ascent_Ascent_glue' Path: 
  2471.       'xlib_glue.so' IfFail: 
  2472.       [ ( | copyName: n = (self). 
  2473.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2474.     |
  2475.  
  2476.     myFctObj value: self IfFail: 
  2477.       
  2478.       [|:e| ('badTypeError'   isPrefixOf: e)
  2479.         ||  ['deadProxyError' isPrefixOf: e]
  2480.            ifFalse: [^failBlock value: e] 
  2481.               True: [
  2482.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2483.                   failBlock 
  2484.            ]] ).
  2485.  
  2486.  
  2487.   ^ descent = (
  2488.      descentIfFail: [|:e| ^error: 'descent failed: ', e] ).
  2489.  
  2490.   ^ descentIfFail: failBlock = (
  2491.     | myFctObj =
  2492.     foreignFct copyName: 'XFontStruct_descent_Descent_glue' Path: 
  2493.       'xlib_glue.so' IfFail: 
  2494.       [ ( | copyName: n = (self). 
  2495.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2496.     |
  2497.  
  2498.     myFctObj value: self IfFail: 
  2499.       
  2500.       [|:e| ('badTypeError'   isPrefixOf: e)
  2501.         ||  ['deadProxyError' isPrefixOf: e]
  2502.            ifFalse: [^failBlock value: e] 
  2503.               True: [
  2504.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2505.                   failBlock 
  2506.            ]] ).
  2507.  
  2508.  
  2509.   ^ maxCharWidth = (
  2510.      maxCharWidthIfFail: 
  2511.       [|:e| ^error: 'maxCharWidth failed: ', e] ).
  2512.  
  2513.   ^ maxCharWidthIfFail: failBlock = (
  2514.     | myFctObj =
  2515.     foreignFct copyName: 'maxCharWidth_MaxCharWidth_glue' Path: 
  2516.       'xlib_glue.so' IfFail: 
  2517.       [ ( | copyName: n = (self). 
  2518.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2519.     |
  2520.  
  2521.     myFctObj value: self IfFail: 
  2522.       
  2523.       [|:e| ('badTypeError'   isPrefixOf: e)
  2524.         ||  ['deadProxyError' isPrefixOf: e]
  2525.            ifFalse: [^failBlock value: e] 
  2526.               True: [
  2527.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2528.                   failBlock 
  2529.            ]] ).
  2530.  
  2531.  
  2532.   ^ maxCharHeight = (
  2533.      maxCharHeightIfFail: 
  2534.       [|:e| ^error: 'maxCharHeight failed: ', e] ).
  2535.  
  2536.   ^ maxCharHeightIfFail: failBlock = (
  2537.     | myFctObj =
  2538.     foreignFct copyName: 'maxCharHeight_MaxCharHeight_glue' Path: 
  2539.       'xlib_glue.so' IfFail: 
  2540.       [ ( | copyName: n = (self). 
  2541.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2542.     |
  2543.  
  2544.     myFctObj value: self IfFail: 
  2545.       
  2546.       [|:e| ('badTypeError'   isPrefixOf: e)
  2547.         ||  ['deadProxyError' isPrefixOf: e]
  2548.            ifFalse: [^failBlock value: e] 
  2549.               True: [
  2550.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2551.                   failBlock 
  2552.            ]] ).
  2553.  
  2554.  
  2555. | )
  2556.  
  2557. traits xlib xCharStruct raw _AddSlots: ( |
  2558.  
  2559.   ^ width = (
  2560.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  2561.  
  2562.   ^ widthIfFail: failBlock = (
  2563.     | myFctObj =
  2564.     foreignFct copyName: 'XCharStruct_width_Width_glue' Path: 
  2565.       'xlib_glue.so' IfFail: 
  2566.       [ ( | copyName: n = (self). 
  2567.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2568.     |
  2569.  
  2570.     myFctObj value: self IfFail: 
  2571.       
  2572.       [|:e| ('badTypeError'   isPrefixOf: e)
  2573.         ||  ['deadProxyError' isPrefixOf: e]
  2574.            ifFalse: [^failBlock value: e] 
  2575.               True: [
  2576.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2577.                   failBlock 
  2578.            ]] ).
  2579.  
  2580.  
  2581.   ^ ascent = (
  2582.      ascentIfFail: [|:e| ^error: 'ascent failed: ', e] ).
  2583.  
  2584.   ^ ascentIfFail: failBlock = (
  2585.     | myFctObj =
  2586.     foreignFct copyName: 'XCharStruct_ascent_Ascent_glue' Path: 
  2587.       'xlib_glue.so' IfFail: 
  2588.       [ ( | copyName: n = (self). 
  2589.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2590.     |
  2591.  
  2592.     myFctObj value: self IfFail: 
  2593.       
  2594.       [|:e| ('badTypeError'   isPrefixOf: e)
  2595.         ||  ['deadProxyError' isPrefixOf: e]
  2596.            ifFalse: [^failBlock value: e] 
  2597.               True: [
  2598.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2599.                   failBlock 
  2600.            ]] ).
  2601.  
  2602.  
  2603.   ^ descent = (
  2604.      descentIfFail: [|:e| ^error: 'descent failed: ', e] ).
  2605.  
  2606.   ^ descentIfFail: failBlock = (
  2607.     | myFctObj =
  2608.     foreignFct copyName: 'XCharStruct_descent_Descent_glue' Path: 
  2609.       'xlib_glue.so' IfFail: 
  2610.       [ ( | copyName: n = (self). 
  2611.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2612.     |
  2613.  
  2614.     myFctObj value: self IfFail: 
  2615.       
  2616.       [|:e| ('badTypeError'   isPrefixOf: e)
  2617.         ||  ['deadProxyError' isPrefixOf: e]
  2618.            ifFalse: [^failBlock value: e] 
  2619.               True: [
  2620.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2621.                   failBlock 
  2622.            ]] ).
  2623.  
  2624.  
  2625. | )
  2626.  
  2627. traits xlib xGCValues raw _AddSlots: ( |
  2628.  
  2629.   ^ new = (
  2630.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2631.  
  2632.   ^ newIfFail: failBlock = (
  2633.     | myFctObj =
  2634.     foreignFct copyName: 'XGCValues_new_New_glue' Path: 'xlib_glue.so' 
  2635.       IfFail: 
  2636.       [ ( | copyName: n = (self). 
  2637.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2638.     |
  2639.  
  2640.     myFctObj value: xlib xGCValues deadCopy IfFail: failBlock ).
  2641.  
  2642.  
  2643.   ^ delete = (
  2644.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2645.  
  2646.   ^ deleteIfFail: failBlock = (
  2647.     | myFctObj =
  2648.     foreignFct copyName: 'XGCValues_delete_Delete_glue' Path: 
  2649.       'xlib_glue.so' IfFail: 
  2650.       [ ( | copyName: n = (self). 
  2651.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2652.     |
  2653.  
  2654.     myFctObj value: self IfFail: 
  2655.       
  2656.       [|:e| ('badTypeError'   isPrefixOf: e)
  2657.         ||  ['deadProxyError' isPrefixOf: e]
  2658.            ifFalse: [^failBlock value: e] 
  2659.               True: [
  2660.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2661.                   failBlock 
  2662.            ]] .
  2663.     self).
  2664.  
  2665.  
  2666.   ^ function = (
  2667.      functionIfFail: [|:e| ^error: 'function failed: ', e] ).
  2668.  
  2669.   ^ functionIfFail: failBlock = (
  2670.     | myFctObj =
  2671.     foreignFct copyName: 'XGCValues_function_Function_glue' Path: 
  2672.       'xlib_glue.so' IfFail: 
  2673.       [ ( | copyName: n = (self). 
  2674.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2675.     |
  2676.  
  2677.     myFctObj value: self IfFail: 
  2678.       
  2679.       [|:e| ('badTypeError'   isPrefixOf: e)
  2680.         ||  ['deadProxyError' isPrefixOf: e]
  2681.            ifFalse: [^failBlock value: e] 
  2682.               True: [
  2683.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2684.                   failBlock 
  2685.            ]] ).
  2686.  
  2687.  
  2688.   ^ plane_mask = (
  2689.      plane_maskIfFail: [|:e| ^error: 'plane_mask failed: ', e] ).
  2690.  
  2691.   ^ plane_maskIfFail: failBlock = (
  2692.     | myFctObj =
  2693.     foreignFct copyName: 'XGCValues_plane_mask_Plane_mask_glue' Path: 
  2694.       'xlib_glue.so' IfFail: 
  2695.       [ ( | copyName: n = (self). 
  2696.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2697.     |
  2698.  
  2699.     myFctObj value: self IfFail: 
  2700.       
  2701.       [|:e| ('badTypeError'   isPrefixOf: e)
  2702.         ||  ['deadProxyError' isPrefixOf: e]
  2703.            ifFalse: [^failBlock value: e] 
  2704.               True: [
  2705.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2706.                   failBlock 
  2707.            ]] ).
  2708.  
  2709.  
  2710.   ^ foreground = (
  2711.      foregroundIfFail: [|:e| ^error: 'foreground failed: ', e] ).
  2712.  
  2713.   ^ foregroundIfFail: failBlock = (
  2714.     | myFctObj =
  2715.     foreignFct copyName: 'XGCValues_foreground_Foreground_glue' Path: 
  2716.       'xlib_glue.so' IfFail: 
  2717.       [ ( | copyName: n = (self). 
  2718.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2719.     |
  2720.  
  2721.     myFctObj value: self IfFail: 
  2722.       
  2723.       [|:e| ('badTypeError'   isPrefixOf: e)
  2724.         ||  ['deadProxyError' isPrefixOf: e]
  2725.            ifFalse: [^failBlock value: e] 
  2726.               True: [
  2727.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2728.                   failBlock 
  2729.            ]] ).
  2730.  
  2731.  
  2732.   ^ background = (
  2733.      backgroundIfFail: [|:e| ^error: 'background failed: ', e] ).
  2734.  
  2735.   ^ backgroundIfFail: failBlock = (
  2736.     | myFctObj =
  2737.     foreignFct copyName: 'XGCValues_background_Background_glue' Path: 
  2738.       'xlib_glue.so' IfFail: 
  2739.       [ ( | copyName: n = (self). 
  2740.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2741.     |
  2742.  
  2743.     myFctObj value: self IfFail: 
  2744.       
  2745.       [|:e| ('badTypeError'   isPrefixOf: e)
  2746.         ||  ['deadProxyError' isPrefixOf: e]
  2747.            ifFalse: [^failBlock value: e] 
  2748.               True: [
  2749.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2750.                   failBlock 
  2751.            ]] ).
  2752.  
  2753.  
  2754.   ^ line_width = (
  2755.      line_widthIfFail: [|:e| ^error: 'line_width failed: ', e] ).
  2756.  
  2757.   ^ line_widthIfFail: failBlock = (
  2758.     | myFctObj =
  2759.     foreignFct copyName: 'XGCValues_line_width_Line_width_glue' Path: 
  2760.       'xlib_glue.so' IfFail: 
  2761.       [ ( | copyName: n = (self). 
  2762.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2763.     |
  2764.  
  2765.     myFctObj value: self IfFail: 
  2766.       
  2767.       [|:e| ('badTypeError'   isPrefixOf: e)
  2768.         ||  ['deadProxyError' isPrefixOf: e]
  2769.            ifFalse: [^failBlock value: e] 
  2770.               True: [
  2771.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2772.                   failBlock 
  2773.            ]] ).
  2774.  
  2775.  
  2776.   ^ fill_style = (
  2777.      fill_styleIfFail: [|:e| ^error: 'fill_style failed: ', e] ).
  2778.  
  2779.   ^ fill_styleIfFail: failBlock = (
  2780.     | myFctObj =
  2781.     foreignFct copyName: 'XGCValues_fill_style_Fill_style_glue' Path: 
  2782.       'xlib_glue.so' IfFail: 
  2783.       [ ( | copyName: n = (self). 
  2784.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2785.     |
  2786.  
  2787.     myFctObj value: self IfFail: 
  2788.       
  2789.       [|:e| ('badTypeError'   isPrefixOf: e)
  2790.         ||  ['deadProxyError' isPrefixOf: e]
  2791.            ifFalse: [^failBlock value: e] 
  2792.               True: [
  2793.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2794.                   failBlock 
  2795.            ]] ).
  2796.  
  2797.  
  2798.   ^ fill_rule = (
  2799.      fill_ruleIfFail: [|:e| ^error: 'fill_rule failed: ', e] ).
  2800.  
  2801.   ^ fill_ruleIfFail: failBlock = (
  2802.     | myFctObj =
  2803.     foreignFct copyName: 'XGCValues_fill_rule_Fill_rule_glue' Path: 
  2804.       'xlib_glue.so' IfFail: 
  2805.       [ ( | copyName: n = (self). 
  2806.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2807.     |
  2808.  
  2809.     myFctObj value: self IfFail: 
  2810.       
  2811.       [|:e| ('badTypeError'   isPrefixOf: e)
  2812.         ||  ['deadProxyError' isPrefixOf: e]
  2813.            ifFalse: [^failBlock value: e] 
  2814.               True: [
  2815.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2816.                   failBlock 
  2817.            ]] ).
  2818.  
  2819.  
  2820.   ^ graphics_exposures = (
  2821.      graphics_exposuresIfFail: 
  2822.       [|:e| ^error: 'graphics_exposures failed: ', e] ).
  2823.  
  2824.   ^ graphics_exposuresIfFail: failBlock = (
  2825.     | myFctObj =
  2826.     foreignFct copyName: 
  2827.       'XGCValues_graphics_exposures_Graphics_exposures_glue' 
  2828.       Path: 'xlib_glue.so' IfFail: 
  2829.       [ ( | copyName: n = (self). 
  2830.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2831.     |
  2832.  
  2833.     myFctObj value: self IfFail: 
  2834.       
  2835.       [|:e| ('badTypeError'   isPrefixOf: e)
  2836.         ||  ['deadProxyError' isPrefixOf: e]
  2837.            ifFalse: [^failBlock value: e] 
  2838.               True: [
  2839.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2840.                   failBlock 
  2841.            ]] ).
  2842.  
  2843.  
  2844.   ^ font = (
  2845.      fontIfFail: [|:e| ^error: 'font failed: ', e] ).
  2846.  
  2847.   ^ fontIfFail: failBlock = (
  2848.     | myFctObj =
  2849.     foreignFct copyName: 'XGCValues_font_Font_glue' Path: 'xlib_glue.so' 
  2850.       IfFail: 
  2851.       [ ( | copyName: n = (self). 
  2852.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2853.     |
  2854.  
  2855.     myFctObj value: self With: xlib font deadCopy IfFail: 
  2856.       
  2857.       [|:e| ('badTypeError'   isPrefixOf: e)
  2858.         ||  ['deadProxyError' isPrefixOf: e]
  2859.            ifFalse: [^failBlock value: e] 
  2860.               True: [
  2861.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2862.                   xlib font deadCopy IfFail: failBlock 
  2863.            ]] ).
  2864.  
  2865.  
  2866.   ^ stipple = (
  2867.      stippleIfFail: [|:e| ^error: 'stipple failed: ', e] ).
  2868.  
  2869.   ^ stippleIfFail: failBlock = (
  2870.     | myFctObj =
  2871.     foreignFct copyName: 'XGCValues_stipple_Stipple_glue' Path: 
  2872.       'xlib_glue.so' IfFail: 
  2873.       [ ( | copyName: n = (self). 
  2874.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2875.     |
  2876.  
  2877.     myFctObj value: self With: xlib pixmap deadCopy  IfFail: 
  2878.       
  2879.       [|:e| ('badTypeError'   isPrefixOf: e)
  2880.         ||  ['deadProxyError' isPrefixOf: e]
  2881.            ifFalse: [^failBlock value: e] 
  2882.               True: [
  2883.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2884.                   xlib pixmap deadCopy  IfFail: failBlock 
  2885.            ]] ).
  2886.  
  2887.  
  2888. | )
  2889.  
  2890. traits xlib xColor raw _AddSlots: ( |
  2891.  
  2892.   ^ new = (
  2893.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2894.  
  2895.   ^ newIfFail: failBlock = (
  2896.     | myFctObj =
  2897.     foreignFct copyName: 'XColor_new_New_glue' Path: 'xlib_glue.so' 
  2898.       IfFail: 
  2899.       [ ( | copyName: n = (self). 
  2900.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2901.     |
  2902.  
  2903.     myFctObj value: xlib xColor deadCopy IfFail: failBlock ).
  2904.  
  2905.  
  2906.   ^ delete = (
  2907.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2908.  
  2909.   ^ deleteIfFail: failBlock = (
  2910.     | myFctObj =
  2911.     foreignFct copyName: 'XColor_delete_Delete_glue' Path: 'xlib_glue.so' 
  2912.       IfFail: 
  2913.       [ ( | copyName: n = (self). 
  2914.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2915.     |
  2916.  
  2917.     myFctObj value: self IfFail: 
  2918.       
  2919.       [|:e| ('badTypeError'   isPrefixOf: e)
  2920.         ||  ['deadProxyError' isPrefixOf: e]
  2921.            ifFalse: [^failBlock value: e] 
  2922.               True: [
  2923.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2924.                   failBlock 
  2925.            ]] .
  2926.     self).
  2927.  
  2928.  
  2929.   ^ pixel = (
  2930.      pixelIfFail: [|:e| ^error: 'pixel failed: ', e] ).
  2931.  
  2932.   ^ pixelIfFail: failBlock = (
  2933.     | myFctObj =
  2934.     foreignFct copyName: 'XColor_pixel_Pixel_glue' Path: 'xlib_glue.so' 
  2935.       IfFail: 
  2936.       [ ( | copyName: n = (self). 
  2937.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2938.     |
  2939.  
  2940.     myFctObj value: self IfFail: 
  2941.       
  2942.       [|:e| ('badTypeError'   isPrefixOf: e)
  2943.         ||  ['deadProxyError' isPrefixOf: e]
  2944.            ifFalse: [^failBlock value: e] 
  2945.               True: [
  2946.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2947.                   failBlock 
  2948.            ]] ).
  2949.  
  2950.  
  2951.   ^ red = (
  2952.      redIfFail: [|:e| ^error: 'red failed: ', e] ).
  2953.  
  2954.   ^ redIfFail: failBlock = (
  2955.     | myFctObj =
  2956.     foreignFct copyName: 'XColor_red_Red_glue' Path: 'xlib_glue.so' 
  2957.       IfFail: 
  2958.       [ ( | copyName: n = (self). 
  2959.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2960.     |
  2961.  
  2962.     myFctObj value: self IfFail: 
  2963.       
  2964.       [|:e| ('badTypeError'   isPrefixOf: e)
  2965.         ||  ['deadProxyError' isPrefixOf: e]
  2966.            ifFalse: [^failBlock value: e] 
  2967.               True: [
  2968.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2969.                   failBlock 
  2970.            ]] ).
  2971.  
  2972.  
  2973.   ^ green = (
  2974.      greenIfFail: [|:e| ^error: 'green failed: ', e] ).
  2975.  
  2976.   ^ greenIfFail: failBlock = (
  2977.     | myFctObj =
  2978.     foreignFct copyName: 'XColor_green_Green_glue' Path: 'xlib_glue.so' 
  2979.       IfFail: 
  2980.       [ ( | copyName: n = (self). 
  2981.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2982.     |
  2983.  
  2984.     myFctObj value: self IfFail: 
  2985.       
  2986.       [|:e| ('badTypeError'   isPrefixOf: e)
  2987.         ||  ['deadProxyError' isPrefixOf: e]
  2988.            ifFalse: [^failBlock value: e] 
  2989.               True: [
  2990.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2991.                   failBlock 
  2992.            ]] ).
  2993.  
  2994.  
  2995.   ^ blue = (
  2996.      blueIfFail: [|:e| ^error: 'blue failed: ', e] ).
  2997.  
  2998.   ^ blueIfFail: failBlock = (
  2999.     | myFctObj =
  3000.     foreignFct copyName: 'XColor_blue_Blue_glue' Path: 'xlib_glue.so' 
  3001.       IfFail: 
  3002.       [ ( | copyName: n = (self). 
  3003.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3004.     |
  3005.  
  3006.     myFctObj value: self IfFail: 
  3007.       
  3008.       [|:e| ('badTypeError'   isPrefixOf: e)
  3009.         ||  ['deadProxyError' isPrefixOf: e]
  3010.            ifFalse: [^failBlock value: e] 
  3011.               True: [
  3012.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3013.                   failBlock 
  3014.            ]] ).
  3015.  
  3016.  
  3017.   ^ flags = (
  3018.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  3019.  
  3020.   ^ flagsIfFail: failBlock = (
  3021.     | myFctObj =
  3022.     foreignFct copyName: 'XColor_flags_Flags_glue' Path: 'xlib_glue.so' 
  3023.       IfFail: 
  3024.       [ ( | copyName: n = (self). 
  3025.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3026.     |
  3027.  
  3028.     myFctObj value: self IfFail: 
  3029.       
  3030.       [|:e| ('badTypeError'   isPrefixOf: e)
  3031.         ||  ['deadProxyError' isPrefixOf: e]
  3032.            ifFalse: [^failBlock value: e] 
  3033.               True: [
  3034.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3035.                   failBlock 
  3036.            ]] ).
  3037.  
  3038.  
  3039.   ^ pixel: t0  = (
  3040.      pixel: t0 IfFail: [|:e| ^error: 'pixel: failed: ', e] ).
  3041.  
  3042.   ^ pixel: t0 IfFail: failBlock = (
  3043.     | myFctObj =
  3044.     foreignFct copyName: 'XColor_pixel_Pixel__glue' Path: 'xlib_glue.so' 
  3045.       IfFail: 
  3046.       [ ( | copyName: n = (self). 
  3047.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3048.     |
  3049.  
  3050.     myFctObj value: self With: t0 IfFail: 
  3051.       
  3052.       [|:e| ('badTypeError'   isPrefixOf: e)
  3053.         ||  ['deadProxyError' isPrefixOf: e]
  3054.            ifFalse: [^failBlock value: e] 
  3055.               True: [
  3056.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3057.                   t0 asSmallInteger IfFail: failBlock 
  3058.            ]] .
  3059.     self).
  3060.  
  3061.  
  3062.   ^ red: t0  = (
  3063.      red: t0 IfFail: [|:e| ^error: 'red: failed: ', e] ).
  3064.  
  3065.   ^ red: t0 IfFail: failBlock = (
  3066.     | myFctObj =
  3067.     foreignFct copyName: 'XColor_red_Red__glue' Path: 'xlib_glue.so' 
  3068.       IfFail: 
  3069.       [ ( | copyName: n = (self). 
  3070.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3071.     |
  3072.  
  3073.     myFctObj value: self With: t0 IfFail: 
  3074.       
  3075.       [|:e| ('badTypeError'   isPrefixOf: e)
  3076.         ||  ['deadProxyError' isPrefixOf: e]
  3077.            ifFalse: [^failBlock value: e] 
  3078.               True: [
  3079.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3080.                   t0 asSmallInteger IfFail: failBlock 
  3081.            ]] .
  3082.     self).
  3083.  
  3084.  
  3085.   ^ green: t0  = (
  3086.      green: t0 IfFail: [|:e| ^error: 'green: failed: ', e] ).
  3087.  
  3088.   ^ green: t0 IfFail: failBlock = (
  3089.     | myFctObj =
  3090.     foreignFct copyName: 'XColor_green_Green__glue' Path: 'xlib_glue.so' 
  3091.       IfFail: 
  3092.       [ ( | copyName: n = (self). 
  3093.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3094.     |
  3095.  
  3096.     myFctObj value: self With: t0 IfFail: 
  3097.       
  3098.       [|:e| ('badTypeError'   isPrefixOf: e)
  3099.         ||  ['deadProxyError' isPrefixOf: e]
  3100.            ifFalse: [^failBlock value: e] 
  3101.               True: [
  3102.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3103.                   t0 asSmallInteger IfFail: failBlock 
  3104.            ]] .
  3105.     self).
  3106.  
  3107.  
  3108.   ^ blue: t0  = (
  3109.      blue: t0 IfFail: [|:e| ^error: 'blue: failed: ', e] ).
  3110.  
  3111.   ^ blue: t0 IfFail: failBlock = (
  3112.     | myFctObj =
  3113.     foreignFct copyName: 'XColor_blue_Blue__glue' Path: 'xlib_glue.so' 
  3114.       IfFail: 
  3115.       [ ( | copyName: n = (self). 
  3116.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3117.     |
  3118.  
  3119.     myFctObj value: self With: t0 IfFail: 
  3120.       
  3121.       [|:e| ('badTypeError'   isPrefixOf: e)
  3122.         ||  ['deadProxyError' isPrefixOf: e]
  3123.            ifFalse: [^failBlock value: e] 
  3124.               True: [
  3125.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3126.                   t0 asSmallInteger IfFail: failBlock 
  3127.            ]] .
  3128.     self).
  3129.  
  3130.  
  3131.   ^ flags: t0  = (
  3132.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  3133.  
  3134.   ^ flags: t0 IfFail: failBlock = (
  3135.     | myFctObj =
  3136.     foreignFct copyName: 'XColor_flags_Flags__glue' Path: 'xlib_glue.so' 
  3137.       IfFail: 
  3138.       [ ( | copyName: n = (self). 
  3139.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3140.     |
  3141.  
  3142.     myFctObj value: self With: t0 IfFail: 
  3143.       
  3144.       [|:e| ('badTypeError'   isPrefixOf: e)
  3145.         ||  ['deadProxyError' isPrefixOf: e]
  3146.            ifFalse: [^failBlock value: e] 
  3147.               True: [
  3148.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3149.                   t0 asSmallInteger IfFail: failBlock 
  3150.            ]] .
  3151.     self).
  3152.  
  3153.  
  3154. | )
  3155.  
  3156. traits xlib xImage raw _AddSlots: ( |
  3157.  
  3158.   ^ xGetPixelX: t0 Y: t1  = (
  3159.      xGetPixelX: t0 Y: t1 IfFail: 
  3160.       [|:e| ^error: 'xGetPixelX:Y: failed: ', e] ).
  3161.  
  3162.   ^ xGetPixelX: t0 Y: t1 IfFail: failBlock = (
  3163.     | myFctObj =
  3164.     foreignFct copyName: 'XGetPixel_XGetPixelX_Y__glue' Path: 
  3165.       'xlib_glue.so' IfFail: 
  3166.       [ ( | copyName: n = (self). 
  3167.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3168.     |
  3169.  
  3170.     myFctObj value: self With: t0 With: t1 IfFail: 
  3171.       
  3172.       [|:e| ('badTypeError'   isPrefixOf: e)
  3173.         ||  ['deadProxyError' isPrefixOf: e]
  3174.            ifFalse: [^failBlock value: e] 
  3175.               True: [
  3176.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3177.                   t0 asSmallInteger With: t1 asSmallInteger 
  3178.                   IfFail: failBlock 
  3179.            ]] ).
  3180.  
  3181.  
  3182. | )
  3183.  
  3184. traits xlib events xEvent raw _AddSlots: ( |
  3185.  
  3186.   ^ new = (
  3187.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  3188.  
  3189.   ^ newIfFail: failBlock = (
  3190.     | myFctObj =
  3191.     foreignFct copyName: 'XEvent_new_New_glue' Path: 'xlib_glue.so' 
  3192.       IfFail: 
  3193.       [ ( | copyName: n = (self). 
  3194.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3195.     |
  3196.  
  3197.     myFctObj value: xlib events xEvent deadCopy IfFail: failBlock ).
  3198.  
  3199.  
  3200.   _ basicDelete = (
  3201.      basicDeleteIfFail: [|:e| ^error: 'basicDelete failed: ', e] ).
  3202.  
  3203.   _ basicDeleteIfFail: failBlock = (
  3204.     | myFctObj =
  3205.     foreignFct copyName: 'XEvent_delete_BasicDelete_glue' Path: 
  3206.       'xlib_glue.so' IfFail: 
  3207.       [ ( | copyName: n = (self). 
  3208.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3209.     |
  3210.  
  3211.     myFctObj value: self IfFail: 
  3212.       
  3213.       [|:e| ('badTypeError'   isPrefixOf: e)
  3214.         ||  ['deadProxyError' isPrefixOf: e]
  3215.            ifFalse: [^failBlock value: e] 
  3216.               True: [
  3217.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3218.                   failBlock 
  3219.            ]] .
  3220.     self).
  3221.  
  3222.  
  3223.   ^ type = (
  3224.      typeIfFail: [|:e| ^error: 'type failed: ', e] ).
  3225.  
  3226.   ^ typeIfFail: failBlock = (
  3227.     | myFctObj =
  3228.     foreignFct copyName: 'XEvent_type_Type_glue' Path: 'xlib_glue.so' 
  3229.       IfFail: 
  3230.       [ ( | copyName: n = (self). 
  3231.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3232.     |
  3233.  
  3234.     myFctObj value: self IfFail: 
  3235.       
  3236.       [|:e| ('badTypeError'   isPrefixOf: e)
  3237.         ||  ['deadProxyError' isPrefixOf: e]
  3238.            ifFalse: [^failBlock value: e] 
  3239.               True: [
  3240.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3241.                   failBlock 
  3242.            ]] ).
  3243.  
  3244.  
  3245.   ^ asXEvent = (
  3246.      asXEventIfFail: [|:e| ^error: 'asXEvent failed: ', e] ).
  3247.  
  3248.   ^ asXEventIfFail: failBlock = (
  3249.     | myFctObj =
  3250.     foreignFct copyName: 'asXEvent_AsXEvent_glue' Path: 'xlib_glue.so' 
  3251.       IfFail: 
  3252.       [ ( | copyName: n = (self). 
  3253.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3254.     |
  3255.  
  3256.     myFctObj value: self With: xlib events xEvent deadCopy IfFail: 
  3257.       
  3258.       [|:e| ('badTypeError'   isPrefixOf: e)
  3259.         ||  ['deadProxyError' isPrefixOf: e]
  3260.            ifFalse: [^failBlock value: e] 
  3261.               True: [
  3262.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3263.                   xlib events xEvent deadCopy IfFail: 
  3264.                   failBlock 
  3265.            ]] ).
  3266.  
  3267.  
  3268.   ^ xany = (
  3269.      xanyIfFail: [|:e| ^error: 'xany failed: ', e] ).
  3270.  
  3271.   ^ xanyIfFail: failBlock = (
  3272.     | myFctObj =
  3273.     foreignFct copyName: 'get_xany_wrap_Xany_glue' Path: 'xlib_glue.so' 
  3274.       IfFail: 
  3275.       [ ( | copyName: n = (self). 
  3276.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3277.     |
  3278.  
  3279.     myFctObj value: self With: xlib events xAnyEvent deadCopy IfFail: 
  3280.       
  3281.       [|:e| ('badTypeError'   isPrefixOf: e)
  3282.         ||  ['deadProxyError' isPrefixOf: e]
  3283.            ifFalse: [^failBlock value: e] 
  3284.               True: [
  3285.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3286.                   xlib events xAnyEvent deadCopy IfFail: 
  3287.                   failBlock 
  3288.            ]] ).
  3289.  
  3290.  
  3291.   ^ xbutton = (
  3292.      xbuttonIfFail: [|:e| ^error: 'xbutton failed: ', e] ).
  3293.  
  3294.   ^ xbuttonIfFail: failBlock = (
  3295.     | myFctObj =
  3296.     foreignFct copyName: 'get_xbutton_wrap_Xbutton_glue' Path: 
  3297.       'xlib_glue.so' IfFail: 
  3298.       [ ( | copyName: n = (self). 
  3299.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3300.     |
  3301.  
  3302.     myFctObj value: self With: xlib events xButtonEvent deadCopy IfFail: 
  3303.       
  3304.       [|:e| ('badTypeError'   isPrefixOf: e)
  3305.         ||  ['deadProxyError' isPrefixOf: e]
  3306.            ifFalse: [^failBlock value: e] 
  3307.               True: [
  3308.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3309.                   xlib events xButtonEvent deadCopy IfFail: 
  3310.                   failBlock 
  3311.            ]] ).
  3312.  
  3313.  
  3314.   ^ xclient = (
  3315.      xclientIfFail: [|:e| ^error: 'xclient failed: ', e] ).
  3316.  
  3317.   ^ xclientIfFail: failBlock = (
  3318.     | myFctObj =
  3319.     foreignFct copyName: 'get_xclient_wrap_Xclient_glue' Path: 
  3320.       'xlib_glue.so' IfFail: 
  3321.       [ ( | copyName: n = (self). 
  3322.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3323.     |
  3324.  
  3325.     myFctObj value: self With: xlib events xClientMessageEvent deadCopy 
  3326.       IfFail: 
  3327.       
  3328.       [|:e| ('badTypeError'   isPrefixOf: e)
  3329.         ||  ['deadProxyError' isPrefixOf: e]
  3330.            ifFalse: [^failBlock value: e] 
  3331.               True: [
  3332.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3333.                   xlib events xClientMessageEvent deadCopy 
  3334.                   IfFail: failBlock 
  3335.            ]] ).
  3336.  
  3337.  
  3338.   ^ xcolormap = (
  3339.      xcolormapIfFail: [|:e| ^error: 'xcolormap failed: ', e] ).
  3340.  
  3341.   ^ xcolormapIfFail: failBlock = (
  3342.     | myFctObj =
  3343.     foreignFct copyName: 'get_xcolormap_wrap_Xcolormap_glue' Path: 
  3344.       'xlib_glue.so' IfFail: 
  3345.       [ ( | copyName: n = (self). 
  3346.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3347.     |
  3348.  
  3349.     myFctObj value: self With: xlib events xColormapEvent deadCopy 
  3350.       IfFail: 
  3351.       
  3352.       [|:e| ('badTypeError'   isPrefixOf: e)
  3353.         ||  ['deadProxyError' isPrefixOf: e]
  3354.            ifFalse: [^failBlock value: e] 
  3355.               True: [
  3356.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3357.                   xlib events xColormapEvent deadCopy 
  3358.                   IfFail: failBlock 
  3359.            ]] ).
  3360.  
  3361.  
  3362.   ^ xconfigure = (
  3363.      xconfigureIfFail: [|:e| ^error: 'xconfigure failed: ', e] ).
  3364.  
  3365.   ^ xconfigureIfFail: failBlock = (
  3366.     | myFctObj =
  3367.     foreignFct copyName: 'get_xconfigure_wrap_Xconfigure_glue' Path: 
  3368.       'xlib_glue.so' IfFail: 
  3369.       [ ( | copyName: n = (self). 
  3370.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3371.     |
  3372.  
  3373.     myFctObj value: self With: xlib events xConfigureEvent deadCopy 
  3374.       IfFail: 
  3375.       
  3376.       [|:e| ('badTypeError'   isPrefixOf: e)
  3377.         ||  ['deadProxyError' isPrefixOf: e]
  3378.            ifFalse: [^failBlock value: e] 
  3379.               True: [
  3380.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3381.                   xlib events xConfigureEvent deadCopy 
  3382.                   IfFail: failBlock 
  3383.            ]] ).
  3384.  
  3385.  
  3386.   ^ xcrossing = (
  3387.      xcrossingIfFail: [|:e| ^error: 'xcrossing failed: ', e] ).
  3388.  
  3389.   ^ xcrossingIfFail: failBlock = (
  3390.     | myFctObj =
  3391.     foreignFct copyName: 'get_xcrossing_wrap_Xcrossing_glue' Path: 
  3392.       'xlib_glue.so' IfFail: 
  3393.       [ ( | copyName: n = (self). 
  3394.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3395.     |
  3396.  
  3397.     myFctObj value: self With: xlib events xCrossingEvent deadCopy 
  3398.       IfFail: 
  3399.       
  3400.       [|:e| ('badTypeError'   isPrefixOf: e)
  3401.         ||  ['deadProxyError' isPrefixOf: e]
  3402.            ifFalse: [^failBlock value: e] 
  3403.               True: [
  3404.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3405.                   xlib events xCrossingEvent deadCopy 
  3406.                   IfFail: failBlock 
  3407.            ]] ).
  3408.  
  3409.  
  3410.   ^ xexpose = (
  3411.      xexposeIfFail: [|:e| ^error: 'xexpose failed: ', e] ).
  3412.  
  3413.   ^ xexposeIfFail: failBlock = (
  3414.     | myFctObj =
  3415.     foreignFct copyName: 'get_xexpose_wrap_Xexpose_glue' Path: 
  3416.       'xlib_glue.so' IfFail: 
  3417.       [ ( | copyName: n = (self). 
  3418.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3419.     |
  3420.  
  3421.     myFctObj value: self With: xlib events xExposeEvent deadCopy IfFail: 
  3422.       
  3423.       [|:e| ('badTypeError'   isPrefixOf: e)
  3424.         ||  ['deadProxyError' isPrefixOf: e]
  3425.            ifFalse: [^failBlock value: e] 
  3426.               True: [
  3427.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3428.                   xlib events xExposeEvent deadCopy IfFail: 
  3429.                   failBlock 
  3430.            ]] ).
  3431.  
  3432.  
  3433.   ^ xgraphicsexpose = (
  3434.      xgraphicsexposeIfFail: 
  3435.       [|:e| ^error: 'xgraphicsexpose failed: ', e] ).
  3436.  
  3437.   ^ xgraphicsexposeIfFail: failBlock = (
  3438.     | myFctObj =
  3439.     foreignFct copyName: 'get_xgraphicsexpose_wrap_Xgraphicsexpose_glue' 
  3440.       Path: 'xlib_glue.so' IfFail: 
  3441.       [ ( | copyName: n = (self). 
  3442.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3443.     |
  3444.  
  3445.     myFctObj value: self With: xlib events xGraphicsExposeEvent deadCopy 
  3446.       IfFail: 
  3447.       
  3448.       [|:e| ('badTypeError'   isPrefixOf: e)
  3449.         ||  ['deadProxyError' isPrefixOf: e]
  3450.            ifFalse: [^failBlock value: e] 
  3451.               True: [
  3452.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3453.                   xlib events xGraphicsExposeEvent deadCopy 
  3454.                   IfFail: failBlock 
  3455.            ]] ).
  3456.  
  3457.  
  3458.   ^ xkey = (
  3459.      xkeyIfFail: [|:e| ^error: 'xkey failed: ', e] ).
  3460.  
  3461.   ^ xkeyIfFail: failBlock = (
  3462.     | myFctObj =
  3463.     foreignFct copyName: 'get_xkey_wrap_Xkey_glue' Path: 'xlib_glue.so' 
  3464.       IfFail: 
  3465.       [ ( | copyName: n = (self). 
  3466.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3467.     |
  3468.  
  3469.     myFctObj value: self With: xlib events xKeyEvent deadCopy IfFail: 
  3470.       
  3471.       [|:e| ('badTypeError'   isPrefixOf: e)
  3472.         ||  ['deadProxyError' isPrefixOf: e]
  3473.            ifFalse: [^failBlock value: e] 
  3474.               True: [
  3475.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3476.                   xlib events xKeyEvent deadCopy IfFail: 
  3477.                   failBlock 
  3478.            ]] ).
  3479.  
  3480.  
  3481.   ^ xmap = (
  3482.      xmapIfFail: [|:e| ^error: 'xmap failed: ', e] ).
  3483.  
  3484.   ^ xmapIfFail: failBlock = (
  3485.     | myFctObj =
  3486.     foreignFct copyName: 'get_xmap_wrap_Xmap_glue' Path: 'xlib_glue.so' 
  3487.       IfFail: 
  3488.       [ ( | copyName: n = (self). 
  3489.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3490.     |
  3491.  
  3492.     myFctObj value: self With: xlib events xMapEvent deadCopy IfFail: 
  3493.       
  3494.       [|:e| ('badTypeError'   isPrefixOf: e)
  3495.         ||  ['deadProxyError' isPrefixOf: e]
  3496.            ifFalse: [^failBlock value: e] 
  3497.               True: [
  3498.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3499.                   xlib events xMapEvent deadCopy IfFail: 
  3500.                   failBlock 
  3501.            ]] ).
  3502.  
  3503.  
  3504.   ^ xmotion = (
  3505.      xmotionIfFail: [|:e| ^error: 'xmotion failed: ', e] ).
  3506.  
  3507.   ^ xmotionIfFail: failBlock = (
  3508.     | myFctObj =
  3509.     foreignFct copyName: 'get_xmotion_wrap_Xmotion_glue' Path: 
  3510.       'xlib_glue.so' IfFail: 
  3511.       [ ( | copyName: n = (self). 
  3512.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3513.     |
  3514.  
  3515.     myFctObj value: self With: xlib events xMotionEvent deadCopy IfFail: 
  3516.       
  3517.       [|:e| ('badTypeError'   isPrefixOf: e)
  3518.         ||  ['deadProxyError' isPrefixOf: e]
  3519.            ifFalse: [^failBlock value: e] 
  3520.               True: [
  3521.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3522.                   xlib events xMotionEvent deadCopy IfFail: 
  3523.                   failBlock 
  3524.            ]] ).
  3525.  
  3526.  
  3527.   ^ xnoexpose = (
  3528.      xnoexposeIfFail: [|:e| ^error: 'xnoexpose failed: ', e] ).
  3529.  
  3530.   ^ xnoexposeIfFail: failBlock = (
  3531.     | myFctObj =
  3532.     foreignFct copyName: 'get_xnoexpose_wrap_Xnoexpose_glue' Path: 
  3533.       'xlib_glue.so' IfFail: 
  3534.       [ ( | copyName: n = (self). 
  3535.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3536.     |
  3537.  
  3538.     myFctObj value: self With: xlib events xNoExposeEvent deadCopy 
  3539.       IfFail: 
  3540.       
  3541.       [|:e| ('badTypeError'   isPrefixOf: e)
  3542.         ||  ['deadProxyError' isPrefixOf: e]
  3543.            ifFalse: [^failBlock value: e] 
  3544.               True: [
  3545.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3546.                   xlib events xNoExposeEvent deadCopy 
  3547.                   IfFail: failBlock 
  3548.            ]] ).
  3549.  
  3550.  
  3551.   ^ xreparent = (
  3552.      xreparentIfFail: [|:e| ^error: 'xreparent failed: ', e] ).
  3553.  
  3554.   ^ xreparentIfFail: failBlock = (
  3555.     | myFctObj =
  3556.     foreignFct copyName: 'get_xreparent_wrap_Xreparent_glue' Path: 
  3557.       'xlib_glue.so' IfFail: 
  3558.       [ ( | copyName: n = (self). 
  3559.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3560.     |
  3561.  
  3562.     myFctObj value: self With: xlib events xReparentEvent deadCopy 
  3563.       IfFail: 
  3564.       
  3565.       [|:e| ('badTypeError'   isPrefixOf: e)
  3566.         ||  ['deadProxyError' isPrefixOf: e]
  3567.            ifFalse: [^failBlock value: e] 
  3568.               True: [
  3569.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3570.                   xlib events xReparentEvent deadCopy 
  3571.                   IfFail: failBlock 
  3572.            ]] ).
  3573.  
  3574.  
  3575.   ^ xunmap = (
  3576.      xunmapIfFail: [|:e| ^error: 'xunmap failed: ', e] ).
  3577.  
  3578.   ^ xunmapIfFail: failBlock = (
  3579.     | myFctObj =
  3580.     foreignFct copyName: 'get_xunmap_wrap_Xunmap_glue' Path: 
  3581.       'xlib_glue.so' IfFail: 
  3582.       [ ( | copyName: n = (self). 
  3583.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3584.     |
  3585.  
  3586.     myFctObj value: self With: xlib events xUnmapEvent deadCopy IfFail: 
  3587.       
  3588.       [|:e| ('badTypeError'   isPrefixOf: e)
  3589.         ||  ['deadProxyError' isPrefixOf: e]
  3590.            ifFalse: [^failBlock value: e] 
  3591.               True: [
  3592.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3593.                   xlib events xUnmapEvent deadCopy IfFail: 
  3594.                   failBlock 
  3595.            ]] ).
  3596.  
  3597.  
  3598.   ^ xvisibility = (
  3599.      xvisibilityIfFail: [|:e| ^error: 'xvisibility failed: ', e] ).
  3600.  
  3601.   ^ xvisibilityIfFail: failBlock = (
  3602.     | myFctObj =
  3603.     foreignFct copyName: 'get_xvisibility_wrap_Xvisibility_glue' Path: 
  3604.       'xlib_glue.so' IfFail: 
  3605.       [ ( | copyName: n = (self). 
  3606.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3607.     |
  3608.  
  3609.     myFctObj value: self With: xlib events xVisibilityEvent deadCopy 
  3610.       IfFail: 
  3611.       
  3612.       [|:e| ('badTypeError'   isPrefixOf: e)
  3613.         ||  ['deadProxyError' isPrefixOf: e]
  3614.            ifFalse: [^failBlock value: e] 
  3615.               True: [
  3616.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3617.                   xlib events xVisibilityEvent deadCopy 
  3618.                   IfFail: failBlock 
  3619.            ]] ).
  3620.  
  3621.  
  3622. | )
  3623.  
  3624. traits xlib events xButtonEvent raw _AddSlots: ( |
  3625.  
  3626.   ^ x = (
  3627.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  3628.  
  3629.   ^ xIfFail: failBlock = (
  3630.     | myFctObj =
  3631.     foreignFct copyName: 'XButtonEvent_x_X_glue' Path: 'xlib_glue.so' 
  3632.       IfFail: 
  3633.       [ ( | copyName: n = (self). 
  3634.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3635.     |
  3636.  
  3637.     myFctObj value: self IfFail: 
  3638.       
  3639.       [|:e| ('badTypeError'   isPrefixOf: e)
  3640.         ||  ['deadProxyError' isPrefixOf: e]
  3641.            ifFalse: [^failBlock value: e] 
  3642.               True: [
  3643.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3644.                   failBlock 
  3645.            ]] ).
  3646.  
  3647.  
  3648.   ^ y = (
  3649.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  3650.  
  3651.   ^ yIfFail: failBlock = (
  3652.     | myFctObj =
  3653.     foreignFct copyName: 'XButtonEvent_y_Y_glue' Path: 'xlib_glue.so' 
  3654.       IfFail: 
  3655.       [ ( | copyName: n = (self). 
  3656.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3657.     |
  3658.  
  3659.     myFctObj value: self IfFail: 
  3660.       
  3661.       [|:e| ('badTypeError'   isPrefixOf: e)
  3662.         ||  ['deadProxyError' isPrefixOf: e]
  3663.            ifFalse: [^failBlock value: e] 
  3664.               True: [
  3665.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3666.                   failBlock 
  3667.            ]] ).
  3668.  
  3669.  
  3670.   ^ x_root = (
  3671.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  3672.  
  3673.   ^ x_rootIfFail: failBlock = (
  3674.     | myFctObj =
  3675.     foreignFct copyName: 'XButtonEvent_x_root_X_root_glue' Path: 
  3676.       'xlib_glue.so' IfFail: 
  3677.       [ ( | copyName: n = (self). 
  3678.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3679.     |
  3680.  
  3681.     myFctObj value: self IfFail: 
  3682.       
  3683.       [|:e| ('badTypeError'   isPrefixOf: e)
  3684.         ||  ['deadProxyError' isPrefixOf: e]
  3685.            ifFalse: [^failBlock value: e] 
  3686.               True: [
  3687.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3688.                   failBlock 
  3689.            ]] ).
  3690.  
  3691.  
  3692.   ^ y_root = (
  3693.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  3694.  
  3695.   ^ y_rootIfFail: failBlock = (
  3696.     | myFctObj =
  3697.     foreignFct copyName: 'XButtonEvent_y_root_Y_root_glue' Path: 
  3698.       'xlib_glue.so' IfFail: 
  3699.       [ ( | copyName: n = (self). 
  3700.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3701.     |
  3702.  
  3703.     myFctObj value: self IfFail: 
  3704.       
  3705.       [|:e| ('badTypeError'   isPrefixOf: e)
  3706.         ||  ['deadProxyError' isPrefixOf: e]
  3707.            ifFalse: [^failBlock value: e] 
  3708.               True: [
  3709.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3710.                   failBlock 
  3711.            ]] ).
  3712.  
  3713.  
  3714.   ^ state = (
  3715.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  3716.  
  3717.   ^ stateIfFail: failBlock = (
  3718.     | myFctObj =
  3719.     foreignFct copyName: 'XButtonEvent_state_State_glue' Path: 
  3720.       'xlib_glue.so' IfFail: 
  3721.       [ ( | copyName: n = (self). 
  3722.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3723.     |
  3724.  
  3725.     myFctObj value: self IfFail: 
  3726.       
  3727.       [|:e| ('badTypeError'   isPrefixOf: e)
  3728.         ||  ['deadProxyError' isPrefixOf: e]
  3729.            ifFalse: [^failBlock value: e] 
  3730.               True: [
  3731.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3732.                   failBlock 
  3733.            ]] ).
  3734.  
  3735.  
  3736.   ^ button = (
  3737.      buttonIfFail: [|:e| ^error: 'button failed: ', e] ).
  3738.  
  3739.   ^ buttonIfFail: failBlock = (
  3740.     | myFctObj =
  3741.     foreignFct copyName: 'XButtonEvent_button_Button_glue' Path: 
  3742.       'xlib_glue.so' IfFail: 
  3743.       [ ( | copyName: n = (self). 
  3744.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3745.     |
  3746.  
  3747.     myFctObj value: self IfFail: 
  3748.       
  3749.       [|:e| ('badTypeError'   isPrefixOf: e)
  3750.         ||  ['deadProxyError' isPrefixOf: e]
  3751.            ifFalse: [^failBlock value: e] 
  3752.               True: [
  3753.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3754.                   failBlock 
  3755.            ]] ).
  3756.  
  3757.  
  3758.   ^ window = (
  3759.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3760.  
  3761.   ^ windowIfFail: failBlock = (
  3762.     | myFctObj =
  3763.     foreignFct copyName: 'XButtonEvent_window_Window_glue' Path: 
  3764.       'xlib_glue.so' IfFail: 
  3765.       [ ( | copyName: n = (self). 
  3766.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3767.     |
  3768.  
  3769.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3770.       
  3771.       [|:e| ('badTypeError'   isPrefixOf: e)
  3772.         ||  ['deadProxyError' isPrefixOf: e]
  3773.            ifFalse: [^failBlock value: e] 
  3774.               True: [
  3775.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3776.                   xlib window deadCopy IfFail: failBlock 
  3777.            ]] ).
  3778.  
  3779.  
  3780. | )
  3781.  
  3782. traits xlib events xClientMessageEvent raw _AddSlots: ( |
  3783.  
  3784.   ^ message_type = (
  3785.      message_typeIfFail: 
  3786.       [|:e| ^error: 'message_type failed: ', e] ).
  3787.  
  3788.   ^ message_typeIfFail: failBlock = (
  3789.     | myFctObj =
  3790.     foreignFct copyName: 
  3791.       'XClientMessageEvent_message_type_Message_type_glue' 
  3792.       Path: 'xlib_glue.so' IfFail: 
  3793.       [ ( | copyName: n = (self). 
  3794.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3795.     |
  3796.  
  3797.     myFctObj value: self With: xlib atom deadCopy IfFail: 
  3798.       
  3799.       [|:e| ('badTypeError'   isPrefixOf: e)
  3800.         ||  ['deadProxyError' isPrefixOf: e]
  3801.            ifFalse: [^failBlock value: e] 
  3802.               True: [
  3803.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3804.                   xlib atom deadCopy IfFail: failBlock 
  3805.            ]] ).
  3806.  
  3807.  
  3808.   ^ format = (
  3809.      formatIfFail: [|:e| ^error: 'format failed: ', e] ).
  3810.  
  3811.   ^ formatIfFail: failBlock = (
  3812.     | myFctObj =
  3813.     foreignFct copyName: 'XClientMessageEvent_format_Format_glue' Path: 
  3814.       'xlib_glue.so' IfFail: 
  3815.       [ ( | copyName: n = (self). 
  3816.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3817.     |
  3818.  
  3819.     myFctObj value: self IfFail: 
  3820.       
  3821.       [|:e| ('badTypeError'   isPrefixOf: e)
  3822.         ||  ['deadProxyError' isPrefixOf: e]
  3823.            ifFalse: [^failBlock value: e] 
  3824.               True: [
  3825.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3826.                   failBlock 
  3827.            ]] ).
  3828.  
  3829.  
  3830.   ^ atomAt: t0  = (
  3831.      atomAt: t0 IfFail: [|:e| ^error: 'atomAt: failed: ', e] ).
  3832.  
  3833.   ^ atomAt: t0 IfFail: failBlock = (
  3834.     | myFctObj =
  3835.     foreignFct copyName: 'XClientMessageEvent_atomAt_wrap_AtomAt__glue' 
  3836.       Path: 'xlib_glue.so' IfFail: 
  3837.       [ ( | copyName: n = (self). 
  3838.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3839.     |
  3840.  
  3841.     myFctObj value: self With: t0 With: xlib atom deadCopy IfFail: 
  3842.       
  3843.       [|:e| ('badTypeError'   isPrefixOf: e)
  3844.         ||  ['deadProxyError' isPrefixOf: e]
  3845.            ifFalse: [^failBlock value: e] 
  3846.               True: [
  3847.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3848.                   t0 asSmallInteger With: 
  3849.                   xlib atom deadCopy IfFail: failBlock 
  3850.            ]] ).
  3851.  
  3852.  
  3853.   ^ window = (
  3854.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3855.  
  3856.   ^ windowIfFail: failBlock = (
  3857.     | myFctObj =
  3858.     foreignFct copyName: 'XClientMessageEvent_window_Window_glue' Path: 
  3859.       'xlib_glue.so' IfFail: 
  3860.       [ ( | copyName: n = (self). 
  3861.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3862.     |
  3863.  
  3864.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3865.       
  3866.       [|:e| ('badTypeError'   isPrefixOf: e)
  3867.         ||  ['deadProxyError' isPrefixOf: e]
  3868.            ifFalse: [^failBlock value: e] 
  3869.               True: [
  3870.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3871.                   xlib window deadCopy IfFail: failBlock 
  3872.            ]] ).
  3873.  
  3874.  
  3875. | )
  3876.  
  3877. traits xlib events xColormapEvent raw _AddSlots: ( |
  3878.  
  3879.   ^ c_new = (
  3880.      c_newIfFail: [|:e| ^error: 'c_new failed: ', e] ).
  3881.  
  3882.   ^ c_newIfFail: failBlock = (
  3883.     | myFctObj =
  3884.     foreignFct copyName: 'XColormapEvent_c_new_C_new_glue' Path: 
  3885.       'xlib_glue.so' IfFail: 
  3886.       [ ( | copyName: n = (self). 
  3887.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3888.     |
  3889.  
  3890.     myFctObj value: self IfFail: 
  3891.       
  3892.       [|:e| ('badTypeError'   isPrefixOf: e)
  3893.         ||  ['deadProxyError' isPrefixOf: e]
  3894.            ifFalse: [^failBlock value: e] 
  3895.               True: [
  3896.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3897.                   failBlock 
  3898.            ]] ).
  3899.  
  3900.  
  3901.   ^ state = (
  3902.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  3903.  
  3904.   ^ stateIfFail: failBlock = (
  3905.     | myFctObj =
  3906.     foreignFct copyName: 'XColormapEvent_state_State_glue' Path: 
  3907.       'xlib_glue.so' IfFail: 
  3908.       [ ( | copyName: n = (self). 
  3909.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3910.     |
  3911.  
  3912.     myFctObj value: self IfFail: 
  3913.       
  3914.       [|:e| ('badTypeError'   isPrefixOf: e)
  3915.         ||  ['deadProxyError' isPrefixOf: e]
  3916.            ifFalse: [^failBlock value: e] 
  3917.               True: [
  3918.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3919.                   failBlock 
  3920.            ]] ).
  3921.  
  3922.  
  3923.   ^ window = (
  3924.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3925.  
  3926.   ^ windowIfFail: failBlock = (
  3927.     | myFctObj =
  3928.     foreignFct copyName: 'XColormapEvent_window_Window_glue' Path: 
  3929.       'xlib_glue.so' IfFail: 
  3930.       [ ( | copyName: n = (self). 
  3931.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3932.     |
  3933.  
  3934.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3935.       
  3936.       [|:e| ('badTypeError'   isPrefixOf: e)
  3937.         ||  ['deadProxyError' isPrefixOf: e]
  3938.            ifFalse: [^failBlock value: e] 
  3939.               True: [
  3940.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3941.                   xlib window deadCopy IfFail: failBlock 
  3942.            ]] ).
  3943.  
  3944.  
  3945. | )
  3946.  
  3947. traits xlib events xConfigureEvent raw _AddSlots: ( |
  3948.  
  3949.   ^ x = (
  3950.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  3951.  
  3952.   ^ xIfFail: failBlock = (
  3953.     | myFctObj =
  3954.     foreignFct copyName: 'XConfigureEvent_x_X_glue' Path: 'xlib_glue.so' 
  3955.       IfFail: 
  3956.       [ ( | copyName: n = (self). 
  3957.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3958.     |
  3959.  
  3960.     myFctObj value: self IfFail: 
  3961.       
  3962.       [|:e| ('badTypeError'   isPrefixOf: e)
  3963.         ||  ['deadProxyError' isPrefixOf: e]
  3964.            ifFalse: [^failBlock value: e] 
  3965.               True: [
  3966.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3967.                   failBlock 
  3968.            ]] ).
  3969.  
  3970.  
  3971.   ^ y = (
  3972.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  3973.  
  3974.   ^ yIfFail: failBlock = (
  3975.     | myFctObj =
  3976.     foreignFct copyName: 'XConfigureEvent_y_Y_glue' Path: 'xlib_glue.so' 
  3977.       IfFail: 
  3978.       [ ( | copyName: n = (self). 
  3979.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3980.     |
  3981.  
  3982.     myFctObj value: self IfFail: 
  3983.       
  3984.       [|:e| ('badTypeError'   isPrefixOf: e)
  3985.         ||  ['deadProxyError' isPrefixOf: e]
  3986.            ifFalse: [^failBlock value: e] 
  3987.               True: [
  3988.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3989.                   failBlock 
  3990.            ]] ).
  3991.  
  3992.  
  3993.   ^ width = (
  3994.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  3995.  
  3996.   ^ widthIfFail: failBlock = (
  3997.     | myFctObj =
  3998.     foreignFct copyName: 'XConfigureEvent_width_Width_glue' Path: 
  3999.       'xlib_glue.so' IfFail: 
  4000.       [ ( | copyName: n = (self). 
  4001.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4002.     |
  4003.  
  4004.     myFctObj value: self IfFail: 
  4005.       
  4006.       [|:e| ('badTypeError'   isPrefixOf: e)
  4007.         ||  ['deadProxyError' isPrefixOf: e]
  4008.            ifFalse: [^failBlock value: e] 
  4009.               True: [
  4010.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4011.                   failBlock 
  4012.            ]] ).
  4013.  
  4014.  
  4015.   ^ height = (
  4016.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  4017.  
  4018.   ^ heightIfFail: failBlock = (
  4019.     | myFctObj =
  4020.     foreignFct copyName: 'XConfigureEvent_height_Height_glue' Path: 
  4021.       'xlib_glue.so' IfFail: 
  4022.       [ ( | copyName: n = (self). 
  4023.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4024.     |
  4025.  
  4026.     myFctObj value: self IfFail: 
  4027.       
  4028.       [|:e| ('badTypeError'   isPrefixOf: e)
  4029.         ||  ['deadProxyError' isPrefixOf: e]
  4030.            ifFalse: [^failBlock value: e] 
  4031.               True: [
  4032.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4033.                   failBlock 
  4034.            ]] ).
  4035.  
  4036.  
  4037.   ^ window = (
  4038.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4039.  
  4040.   ^ windowIfFail: failBlock = (
  4041.     | myFctObj =
  4042.     foreignFct copyName: 'XConfigureEvent_window_Window_glue' Path: 
  4043.       'xlib_glue.so' IfFail: 
  4044.       [ ( | copyName: n = (self). 
  4045.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4046.     |
  4047.  
  4048.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4049.       
  4050.       [|:e| ('badTypeError'   isPrefixOf: e)
  4051.         ||  ['deadProxyError' isPrefixOf: e]
  4052.            ifFalse: [^failBlock value: e] 
  4053.               True: [
  4054.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4055.                   xlib window deadCopy IfFail: failBlock 
  4056.            ]] ).
  4057.  
  4058.  
  4059. | )
  4060.  
  4061. traits xlib events xCrossingEvent raw _AddSlots: ( |
  4062.  
  4063.   ^ window = (
  4064.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4065.  
  4066.   ^ windowIfFail: failBlock = (
  4067.     | myFctObj =
  4068.     foreignFct copyName: 'XCrossingEvent_window_Window_glue' Path: 
  4069.       'xlib_glue.so' IfFail: 
  4070.       [ ( | copyName: n = (self). 
  4071.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4072.     |
  4073.  
  4074.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4075.       
  4076.       [|:e| ('badTypeError'   isPrefixOf: e)
  4077.         ||  ['deadProxyError' isPrefixOf: e]
  4078.            ifFalse: [^failBlock value: e] 
  4079.               True: [
  4080.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4081.                   xlib window deadCopy IfFail: failBlock 
  4082.            ]] ).
  4083.  
  4084.  
  4085.   ^ x = (
  4086.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4087.  
  4088.   ^ xIfFail: failBlock = (
  4089.     | myFctObj =
  4090.     foreignFct copyName: 'XCrossingEvent_x_X_glue' Path: 'xlib_glue.so' 
  4091.       IfFail: 
  4092.       [ ( | copyName: n = (self). 
  4093.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4094.     |
  4095.  
  4096.     myFctObj value: self IfFail: 
  4097.       
  4098.       [|:e| ('badTypeError'   isPrefixOf: e)
  4099.         ||  ['deadProxyError' isPrefixOf: e]
  4100.            ifFalse: [^failBlock value: e] 
  4101.               True: [
  4102.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4103.                   failBlock 
  4104.            ]] ).
  4105.  
  4106.  
  4107.   ^ y = (
  4108.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4109.  
  4110.   ^ yIfFail: failBlock = (
  4111.     | myFctObj =
  4112.     foreignFct copyName: 'XCrossingEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4113.       IfFail: 
  4114.       [ ( | copyName: n = (self). 
  4115.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4116.     |
  4117.  
  4118.     myFctObj value: self IfFail: 
  4119.       
  4120.       [|:e| ('badTypeError'   isPrefixOf: e)
  4121.         ||  ['deadProxyError' isPrefixOf: e]
  4122.            ifFalse: [^failBlock value: e] 
  4123.               True: [
  4124.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4125.                   failBlock 
  4126.            ]] ).
  4127.  
  4128.  
  4129. | )
  4130.  
  4131. traits xlib events xExposeEvent raw _AddSlots: ( |
  4132.  
  4133.   ^ x = (
  4134.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4135.  
  4136.   ^ xIfFail: failBlock = (
  4137.     | myFctObj =
  4138.     foreignFct copyName: 'XExposeEvent_x_X_glue' Path: 'xlib_glue.so' 
  4139.       IfFail: 
  4140.       [ ( | copyName: n = (self). 
  4141.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4142.     |
  4143.  
  4144.     myFctObj value: self IfFail: 
  4145.       
  4146.       [|:e| ('badTypeError'   isPrefixOf: e)
  4147.         ||  ['deadProxyError' isPrefixOf: e]
  4148.            ifFalse: [^failBlock value: e] 
  4149.               True: [
  4150.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4151.                   failBlock 
  4152.            ]] ).
  4153.  
  4154.  
  4155.   ^ y = (
  4156.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4157.  
  4158.   ^ yIfFail: failBlock = (
  4159.     | myFctObj =
  4160.     foreignFct copyName: 'XExposeEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4161.       IfFail: 
  4162.       [ ( | copyName: n = (self). 
  4163.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4164.     |
  4165.  
  4166.     myFctObj value: self IfFail: 
  4167.       
  4168.       [|:e| ('badTypeError'   isPrefixOf: e)
  4169.         ||  ['deadProxyError' isPrefixOf: e]
  4170.            ifFalse: [^failBlock value: e] 
  4171.               True: [
  4172.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4173.                   failBlock 
  4174.            ]] ).
  4175.  
  4176.  
  4177.   ^ width = (
  4178.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  4179.  
  4180.   ^ widthIfFail: failBlock = (
  4181.     | myFctObj =
  4182.     foreignFct copyName: 'XExposeEvent_width_Width_glue' Path: 
  4183.       'xlib_glue.so' IfFail: 
  4184.       [ ( | copyName: n = (self). 
  4185.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4186.     |
  4187.  
  4188.     myFctObj value: self IfFail: 
  4189.       
  4190.       [|:e| ('badTypeError'   isPrefixOf: e)
  4191.         ||  ['deadProxyError' isPrefixOf: e]
  4192.            ifFalse: [^failBlock value: e] 
  4193.               True: [
  4194.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4195.                   failBlock 
  4196.            ]] ).
  4197.  
  4198.  
  4199.   ^ height = (
  4200.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  4201.  
  4202.   ^ heightIfFail: failBlock = (
  4203.     | myFctObj =
  4204.     foreignFct copyName: 'XExposeEvent_height_Height_glue' Path: 
  4205.       'xlib_glue.so' IfFail: 
  4206.       [ ( | copyName: n = (self). 
  4207.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4208.     |
  4209.  
  4210.     myFctObj value: self IfFail: 
  4211.       
  4212.       [|:e| ('badTypeError'   isPrefixOf: e)
  4213.         ||  ['deadProxyError' isPrefixOf: e]
  4214.            ifFalse: [^failBlock value: e] 
  4215.               True: [
  4216.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4217.                   failBlock 
  4218.            ]] ).
  4219.  
  4220.  
  4221.   ^ count = (
  4222.      countIfFail: [|:e| ^error: 'count failed: ', e] ).
  4223.  
  4224.   ^ countIfFail: failBlock = (
  4225.     | myFctObj =
  4226.     foreignFct copyName: 'XExposeEvent_count_Count_glue' Path: 
  4227.       'xlib_glue.so' IfFail: 
  4228.       [ ( | copyName: n = (self). 
  4229.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4230.     |
  4231.  
  4232.     myFctObj value: self IfFail: 
  4233.       
  4234.       [|:e| ('badTypeError'   isPrefixOf: e)
  4235.         ||  ['deadProxyError' isPrefixOf: e]
  4236.            ifFalse: [^failBlock value: e] 
  4237.               True: [
  4238.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4239.                   failBlock 
  4240.            ]] ).
  4241.  
  4242.  
  4243.   ^ window = (
  4244.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4245.  
  4246.   ^ windowIfFail: failBlock = (
  4247.     | myFctObj =
  4248.     foreignFct copyName: 'XExposeEvent_window_Window_glue' Path: 
  4249.       'xlib_glue.so' IfFail: 
  4250.       [ ( | copyName: n = (self). 
  4251.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4252.     |
  4253.  
  4254.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4255.       
  4256.       [|:e| ('badTypeError'   isPrefixOf: e)
  4257.         ||  ['deadProxyError' isPrefixOf: e]
  4258.            ifFalse: [^failBlock value: e] 
  4259.               True: [
  4260.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4261.                   xlib window deadCopy IfFail: failBlock 
  4262.            ]] ).
  4263.  
  4264.  
  4265. | )
  4266.  
  4267. traits xlib events xGraphicsExposeEvent raw _AddSlots: ( |
  4268.  
  4269.   ^ x = (
  4270.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4271.  
  4272.   ^ xIfFail: failBlock = (
  4273.     | myFctObj =
  4274.     foreignFct copyName: 'XGraphicsExposeEvent_x_X_glue' Path: 
  4275.       'xlib_glue.so' IfFail: 
  4276.       [ ( | copyName: n = (self). 
  4277.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4278.     |
  4279.  
  4280.     myFctObj value: self IfFail: 
  4281.       
  4282.       [|:e| ('badTypeError'   isPrefixOf: e)
  4283.         ||  ['deadProxyError' isPrefixOf: e]
  4284.            ifFalse: [^failBlock value: e] 
  4285.               True: [
  4286.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4287.                   failBlock 
  4288.            ]] ).
  4289.  
  4290.  
  4291.   ^ y = (
  4292.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4293.  
  4294.   ^ yIfFail: failBlock = (
  4295.     | myFctObj =
  4296.     foreignFct copyName: 'XGraphicsExposeEvent_y_Y_glue' Path: 
  4297.       'xlib_glue.so' IfFail: 
  4298.       [ ( | copyName: n = (self). 
  4299.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4300.     |
  4301.  
  4302.     myFctObj value: self IfFail: 
  4303.       
  4304.       [|:e| ('badTypeError'   isPrefixOf: e)
  4305.         ||  ['deadProxyError' isPrefixOf: e]
  4306.            ifFalse: [^failBlock value: e] 
  4307.               True: [
  4308.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4309.                   failBlock 
  4310.            ]] ).
  4311.  
  4312.  
  4313.   ^ width = (
  4314.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  4315.  
  4316.   ^ widthIfFail: failBlock = (
  4317.     | myFctObj =
  4318.     foreignFct copyName: 'XGraphicsExposeEvent_width_Width_glue' Path: 
  4319.       'xlib_glue.so' IfFail: 
  4320.       [ ( | copyName: n = (self). 
  4321.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4322.     |
  4323.  
  4324.     myFctObj value: self IfFail: 
  4325.       
  4326.       [|:e| ('badTypeError'   isPrefixOf: e)
  4327.         ||  ['deadProxyError' isPrefixOf: e]
  4328.            ifFalse: [^failBlock value: e] 
  4329.               True: [
  4330.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4331.                   failBlock 
  4332.            ]] ).
  4333.  
  4334.  
  4335.   ^ height = (
  4336.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  4337.  
  4338.   ^ heightIfFail: failBlock = (
  4339.     | myFctObj =
  4340.     foreignFct copyName: 'XGraphicsExposeEvent_height_Height_glue' Path: 
  4341.       'xlib_glue.so' IfFail: 
  4342.       [ ( | copyName: n = (self). 
  4343.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4344.     |
  4345.  
  4346.     myFctObj value: self IfFail: 
  4347.       
  4348.       [|:e| ('badTypeError'   isPrefixOf: e)
  4349.         ||  ['deadProxyError' isPrefixOf: e]
  4350.            ifFalse: [^failBlock value: e] 
  4351.               True: [
  4352.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4353.                   failBlock 
  4354.            ]] ).
  4355.  
  4356.  
  4357.   ^ count = (
  4358.      countIfFail: [|:e| ^error: 'count failed: ', e] ).
  4359.  
  4360.   ^ countIfFail: failBlock = (
  4361.     | myFctObj =
  4362.     foreignFct copyName: 'XGraphicsExposeEvent_count_Count_glue' Path: 
  4363.       'xlib_glue.so' IfFail: 
  4364.       [ ( | copyName: n = (self). 
  4365.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4366.     |
  4367.  
  4368.     myFctObj value: self IfFail: 
  4369.       
  4370.       [|:e| ('badTypeError'   isPrefixOf: e)
  4371.         ||  ['deadProxyError' isPrefixOf: e]
  4372.            ifFalse: [^failBlock value: e] 
  4373.               True: [
  4374.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4375.                   failBlock 
  4376.            ]] ).
  4377.  
  4378.  
  4379. | )
  4380.  
  4381. traits xlib events xKeyEvent raw _AddSlots: ( |
  4382.  
  4383.   ^ x = (
  4384.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4385.  
  4386.   ^ xIfFail: failBlock = (
  4387.     | myFctObj =
  4388.     foreignFct copyName: 'XKeyEvent_x_X_glue' Path: 'xlib_glue.so' IfFail: 
  4389.       [ ( | copyName: n = (self). 
  4390.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4391.     |
  4392.  
  4393.     myFctObj value: self IfFail: 
  4394.       
  4395.       [|:e| ('badTypeError'   isPrefixOf: e)
  4396.         ||  ['deadProxyError' isPrefixOf: e]
  4397.            ifFalse: [^failBlock value: e] 
  4398.               True: [
  4399.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4400.                   failBlock 
  4401.            ]] ).
  4402.  
  4403.  
  4404.   ^ y = (
  4405.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4406.  
  4407.   ^ yIfFail: failBlock = (
  4408.     | myFctObj =
  4409.     foreignFct copyName: 'XKeyEvent_y_Y_glue' Path: 'xlib_glue.so' IfFail: 
  4410.       [ ( | copyName: n = (self). 
  4411.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4412.     |
  4413.  
  4414.     myFctObj value: self IfFail: 
  4415.       
  4416.       [|:e| ('badTypeError'   isPrefixOf: e)
  4417.         ||  ['deadProxyError' isPrefixOf: e]
  4418.            ifFalse: [^failBlock value: e] 
  4419.               True: [
  4420.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4421.                   failBlock 
  4422.            ]] ).
  4423.  
  4424.  
  4425.   ^ x_root = (
  4426.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  4427.  
  4428.   ^ x_rootIfFail: failBlock = (
  4429.     | myFctObj =
  4430.     foreignFct copyName: 'XKeyEvent_x_root_X_root_glue' Path: 
  4431.       'xlib_glue.so' IfFail: 
  4432.       [ ( | copyName: n = (self). 
  4433.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4434.     |
  4435.  
  4436.     myFctObj value: self IfFail: 
  4437.       
  4438.       [|:e| ('badTypeError'   isPrefixOf: e)
  4439.         ||  ['deadProxyError' isPrefixOf: e]
  4440.            ifFalse: [^failBlock value: e] 
  4441.               True: [
  4442.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4443.                   failBlock 
  4444.            ]] ).
  4445.  
  4446.  
  4447.   ^ y_root = (
  4448.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  4449.  
  4450.   ^ y_rootIfFail: failBlock = (
  4451.     | myFctObj =
  4452.     foreignFct copyName: 'XKeyEvent_y_root_Y_root_glue' Path: 
  4453.       'xlib_glue.so' IfFail: 
  4454.       [ ( | copyName: n = (self). 
  4455.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4456.     |
  4457.  
  4458.     myFctObj value: self IfFail: 
  4459.       
  4460.       [|:e| ('badTypeError'   isPrefixOf: e)
  4461.         ||  ['deadProxyError' isPrefixOf: e]
  4462.            ifFalse: [^failBlock value: e] 
  4463.               True: [
  4464.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4465.                   failBlock 
  4466.            ]] ).
  4467.  
  4468.  
  4469.   ^ state = (
  4470.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4471.  
  4472.   ^ stateIfFail: failBlock = (
  4473.     | myFctObj =
  4474.     foreignFct copyName: 'XKeyEvent_state_State_glue' Path: 'xlib_glue.so' 
  4475.       IfFail: 
  4476.       [ ( | copyName: n = (self). 
  4477.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4478.     |
  4479.  
  4480.     myFctObj value: self IfFail: 
  4481.       
  4482.       [|:e| ('badTypeError'   isPrefixOf: e)
  4483.         ||  ['deadProxyError' isPrefixOf: e]
  4484.            ifFalse: [^failBlock value: e] 
  4485.               True: [
  4486.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4487.                   failBlock 
  4488.            ]] ).
  4489.  
  4490.  
  4491.   ^ keycode = (
  4492.      keycodeIfFail: [|:e| ^error: 'keycode failed: ', e] ).
  4493.  
  4494.   ^ keycodeIfFail: failBlock = (
  4495.     | myFctObj =
  4496.     foreignFct copyName: 'XKeyEvent_keycode_Keycode_glue' Path: 
  4497.       'xlib_glue.so' IfFail: 
  4498.       [ ( | copyName: n = (self). 
  4499.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4500.     |
  4501.  
  4502.     myFctObj value: self IfFail: 
  4503.       
  4504.       [|:e| ('badTypeError'   isPrefixOf: e)
  4505.         ||  ['deadProxyError' isPrefixOf: e]
  4506.            ifFalse: [^failBlock value: e] 
  4507.               True: [
  4508.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4509.                   failBlock 
  4510.            ]] ).
  4511.  
  4512.  
  4513.   ^ window = (
  4514.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4515.  
  4516.   ^ windowIfFail: failBlock = (
  4517.     | myFctObj =
  4518.     foreignFct copyName: 'XKeyEvent_window_Window_glue' Path: 
  4519.       'xlib_glue.so' IfFail: 
  4520.       [ ( | copyName: n = (self). 
  4521.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4522.     |
  4523.  
  4524.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4525.       
  4526.       [|:e| ('badTypeError'   isPrefixOf: e)
  4527.         ||  ['deadProxyError' isPrefixOf: e]
  4528.            ifFalse: [^failBlock value: e] 
  4529.               True: [
  4530.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4531.                   xlib window deadCopy IfFail: failBlock 
  4532.            ]] ).
  4533.  
  4534.  
  4535.   ^ xLookupStringReturn: t0  = (
  4536.      xLookupStringReturn: t0 IfFail: 
  4537.       [|:e| ^error: 'xLookupStringReturn: failed: ', e] ).
  4538.  
  4539.   ^ xLookupStringReturn: t0 IfFail: failBlock = (
  4540.     | myFctObj =
  4541.     foreignFct copyName: 'XLookupString_wrap_XLookupStringReturn__glue' 
  4542.       Path: 'xlib_glue.so' IfFail: 
  4543.       [ ( | copyName: n = (self). 
  4544.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4545.     |
  4546.  
  4547.     myFctObj value: self With: t0 IfFail: 
  4548.       
  4549.       [|:e| ('badTypeError'   isPrefixOf: e)
  4550.         ||  ['deadProxyError' isPrefixOf: e]
  4551.            ifFalse: [^failBlock value: e] 
  4552.               True: [
  4553.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4554.                   t0 asByteVector IfFail: failBlock 
  4555.            ]] ).
  4556.  
  4557.  
  4558. | )
  4559.  
  4560. traits xlib events xMapEvent raw _AddSlots: ( |
  4561.  
  4562.   ^ window = (
  4563.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4564.  
  4565.   ^ windowIfFail: failBlock = (
  4566.     | myFctObj =
  4567.     foreignFct copyName: 'XMapEvent_window_Window_glue' Path: 
  4568.       'xlib_glue.so' IfFail: 
  4569.       [ ( | copyName: n = (self). 
  4570.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4571.     |
  4572.  
  4573.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4574.       
  4575.       [|:e| ('badTypeError'   isPrefixOf: e)
  4576.         ||  ['deadProxyError' isPrefixOf: e]
  4577.            ifFalse: [^failBlock value: e] 
  4578.               True: [
  4579.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4580.                   xlib window deadCopy IfFail: failBlock 
  4581.            ]] ).
  4582.  
  4583.  
  4584. | )
  4585.  
  4586. traits xlib events xMotionEvent raw _AddSlots: ( |
  4587.  
  4588.   ^ x = (
  4589.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4590.  
  4591.   ^ xIfFail: failBlock = (
  4592.     | myFctObj =
  4593.     foreignFct copyName: 'XMotionEvent_x_X_glue' Path: 'xlib_glue.so' 
  4594.       IfFail: 
  4595.       [ ( | copyName: n = (self). 
  4596.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4597.     |
  4598.  
  4599.     myFctObj value: self IfFail: 
  4600.       
  4601.       [|:e| ('badTypeError'   isPrefixOf: e)
  4602.         ||  ['deadProxyError' isPrefixOf: e]
  4603.            ifFalse: [^failBlock value: e] 
  4604.               True: [
  4605.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4606.                   failBlock 
  4607.            ]] ).
  4608.  
  4609.  
  4610.   ^ y = (
  4611.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4612.  
  4613.   ^ yIfFail: failBlock = (
  4614.     | myFctObj =
  4615.     foreignFct copyName: 'XMotionEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4616.       IfFail: 
  4617.       [ ( | copyName: n = (self). 
  4618.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4619.     |
  4620.  
  4621.     myFctObj value: self IfFail: 
  4622.       
  4623.       [|:e| ('badTypeError'   isPrefixOf: e)
  4624.         ||  ['deadProxyError' isPrefixOf: e]
  4625.            ifFalse: [^failBlock value: e] 
  4626.               True: [
  4627.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4628.                   failBlock 
  4629.            ]] ).
  4630.  
  4631.  
  4632.   ^ x_root = (
  4633.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  4634.  
  4635.   ^ x_rootIfFail: failBlock = (
  4636.     | myFctObj =
  4637.     foreignFct copyName: 'XMotionEvent_x_root_X_root_glue' Path: 
  4638.       'xlib_glue.so' IfFail: 
  4639.       [ ( | copyName: n = (self). 
  4640.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4641.     |
  4642.  
  4643.     myFctObj value: self IfFail: 
  4644.       
  4645.       [|:e| ('badTypeError'   isPrefixOf: e)
  4646.         ||  ['deadProxyError' isPrefixOf: e]
  4647.            ifFalse: [^failBlock value: e] 
  4648.               True: [
  4649.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4650.                   failBlock 
  4651.            ]] ).
  4652.  
  4653.  
  4654.   ^ y_root = (
  4655.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  4656.  
  4657.   ^ y_rootIfFail: failBlock = (
  4658.     | myFctObj =
  4659.     foreignFct copyName: 'XMotionEvent_y_root_Y_root_glue' Path: 
  4660.       'xlib_glue.so' IfFail: 
  4661.       [ ( | copyName: n = (self). 
  4662.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4663.     |
  4664.  
  4665.     myFctObj value: self IfFail: 
  4666.       
  4667.       [|:e| ('badTypeError'   isPrefixOf: e)
  4668.         ||  ['deadProxyError' isPrefixOf: e]
  4669.            ifFalse: [^failBlock value: e] 
  4670.               True: [
  4671.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4672.                   failBlock 
  4673.            ]] ).
  4674.  
  4675.  
  4676.   ^ state = (
  4677.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4678.  
  4679.   ^ stateIfFail: failBlock = (
  4680.     | myFctObj =
  4681.     foreignFct copyName: 'XMotionEvent_state_State_glue' Path: 
  4682.       'xlib_glue.so' IfFail: 
  4683.       [ ( | copyName: n = (self). 
  4684.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4685.     |
  4686.  
  4687.     myFctObj value: self IfFail: 
  4688.       
  4689.       [|:e| ('badTypeError'   isPrefixOf: e)
  4690.         ||  ['deadProxyError' isPrefixOf: e]
  4691.            ifFalse: [^failBlock value: e] 
  4692.               True: [
  4693.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4694.                   failBlock 
  4695.            ]] ).
  4696.  
  4697.  
  4698.   ^ is_hint = (
  4699.      is_hintIfFail: [|:e| ^error: 'is_hint failed: ', e] ).
  4700.  
  4701.   ^ is_hintIfFail: failBlock = (
  4702.     | myFctObj =
  4703.     foreignFct copyName: 'XMotionEvent_is_hint_Is_hint_glue' Path: 
  4704.       'xlib_glue.so' IfFail: 
  4705.       [ ( | copyName: n = (self). 
  4706.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4707.     |
  4708.  
  4709.     myFctObj value: self IfFail: 
  4710.       
  4711.       [|:e| ('badTypeError'   isPrefixOf: e)
  4712.         ||  ['deadProxyError' isPrefixOf: e]
  4713.            ifFalse: [^failBlock value: e] 
  4714.               True: [
  4715.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4716.                   failBlock 
  4717.            ]] ).
  4718.  
  4719.  
  4720.   ^ window = (
  4721.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4722.  
  4723.   ^ windowIfFail: failBlock = (
  4724.     | myFctObj =
  4725.     foreignFct copyName: 'XMotionEvent_window_Window_glue' Path: 
  4726.       'xlib_glue.so' IfFail: 
  4727.       [ ( | copyName: n = (self). 
  4728.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4729.     |
  4730.  
  4731.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4732.       
  4733.       [|:e| ('badTypeError'   isPrefixOf: e)
  4734.         ||  ['deadProxyError' isPrefixOf: e]
  4735.            ifFalse: [^failBlock value: e] 
  4736.               True: [
  4737.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4738.                   xlib window deadCopy IfFail: failBlock 
  4739.            ]] ).
  4740.  
  4741.  
  4742. | )
  4743.  
  4744. traits xlib events xNoExposeEvent raw _AddSlots: ( |
  4745.  
  4746. | )
  4747.  
  4748. traits xlib events xReparentEvent raw _AddSlots: ( |
  4749.  
  4750.   ^ x = (
  4751.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4752.  
  4753.   ^ xIfFail: failBlock = (
  4754.     | myFctObj =
  4755.     foreignFct copyName: 'XReparentEvent_x_X_glue' Path: 'xlib_glue.so' 
  4756.       IfFail: 
  4757.       [ ( | copyName: n = (self). 
  4758.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4759.     |
  4760.  
  4761.     myFctObj value: self IfFail: 
  4762.       
  4763.       [|:e| ('badTypeError'   isPrefixOf: e)
  4764.         ||  ['deadProxyError' isPrefixOf: e]
  4765.            ifFalse: [^failBlock value: e] 
  4766.               True: [
  4767.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4768.                   failBlock 
  4769.            ]] ).
  4770.  
  4771.  
  4772.   ^ y = (
  4773.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4774.  
  4775.   ^ yIfFail: failBlock = (
  4776.     | myFctObj =
  4777.     foreignFct copyName: 'XReparentEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4778.       IfFail: 
  4779.       [ ( | copyName: n = (self). 
  4780.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4781.     |
  4782.  
  4783.     myFctObj value: self IfFail: 
  4784.       
  4785.       [|:e| ('badTypeError'   isPrefixOf: e)
  4786.         ||  ['deadProxyError' isPrefixOf: e]
  4787.            ifFalse: [^failBlock value: e] 
  4788.               True: [
  4789.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4790.                   failBlock 
  4791.            ]] ).
  4792.  
  4793.  
  4794.   ^ window = (
  4795.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4796.  
  4797.   ^ windowIfFail: failBlock = (
  4798.     | myFctObj =
  4799.     foreignFct copyName: 'XReparentEvent_window_Window_glue' Path: 
  4800.       'xlib_glue.so' IfFail: 
  4801.       [ ( | copyName: n = (self). 
  4802.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4803.     |
  4804.  
  4805.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4806.       
  4807.       [|:e| ('badTypeError'   isPrefixOf: e)
  4808.         ||  ['deadProxyError' isPrefixOf: e]
  4809.            ifFalse: [^failBlock value: e] 
  4810.               True: [
  4811.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4812.                   xlib window deadCopy IfFail: failBlock 
  4813.            ]] ).
  4814.  
  4815.  
  4816.   ^ parent_window = (
  4817.      parent_windowIfFail: 
  4818.       [|:e| ^error: 'parent_window failed: ', e] ).
  4819.  
  4820.   ^ parent_windowIfFail: failBlock = (
  4821.     | myFctObj =
  4822.     foreignFct copyName: 'XReparentEvent_parent_Parent_window_glue' Path: 
  4823.       'xlib_glue.so' IfFail: 
  4824.       [ ( | copyName: n = (self). 
  4825.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4826.     |
  4827.  
  4828.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4829.       
  4830.       [|:e| ('badTypeError'   isPrefixOf: e)
  4831.         ||  ['deadProxyError' isPrefixOf: e]
  4832.            ifFalse: [^failBlock value: e] 
  4833.               True: [
  4834.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4835.                   xlib window deadCopy IfFail: failBlock 
  4836.            ]] ).
  4837.  
  4838.  
  4839. | )
  4840.  
  4841. traits xlib events xUnmapEvent raw _AddSlots: ( |
  4842.  
  4843.   ^ window = (
  4844.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4845.  
  4846.   ^ windowIfFail: failBlock = (
  4847.     | myFctObj =
  4848.     foreignFct copyName: 'XUnmapEvent_window_Window_glue' Path: 
  4849.       'xlib_glue.so' IfFail: 
  4850.       [ ( | copyName: n = (self). 
  4851.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4852.     |
  4853.  
  4854.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4855.       
  4856.       [|:e| ('badTypeError'   isPrefixOf: e)
  4857.         ||  ['deadProxyError' isPrefixOf: e]
  4858.            ifFalse: [^failBlock value: e] 
  4859.               True: [
  4860.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4861.                   xlib window deadCopy IfFail: failBlock 
  4862.            ]] ).
  4863.  
  4864.  
  4865. | )
  4866.  
  4867. traits xlib events xVisibilityEvent raw _AddSlots: ( |
  4868.  
  4869.   ^ state = (
  4870.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4871.  
  4872.   ^ stateIfFail: failBlock = (
  4873.     | myFctObj =
  4874.     foreignFct copyName: 'XVisibilityEvent_state_State_glue' Path: 
  4875.       'xlib_glue.so' IfFail: 
  4876.       [ ( | copyName: n = (self). 
  4877.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4878.     |
  4879.  
  4880.     myFctObj value: self IfFail: 
  4881.       
  4882.       [|:e| ('badTypeError'   isPrefixOf: e)
  4883.         ||  ['deadProxyError' isPrefixOf: e]
  4884.            ifFalse: [^failBlock value: e] 
  4885.               True: [
  4886.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4887.                   failBlock 
  4888.            ]] ).
  4889.  
  4890.  
  4891.   ^ window = (
  4892.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4893.  
  4894.   ^ windowIfFail: failBlock = (
  4895.     | myFctObj =
  4896.     foreignFct copyName: 'XVisibilityEvent_window_Window_glue' Path: 
  4897.       'xlib_glue.so' IfFail: 
  4898.       [ ( | copyName: n = (self). 
  4899.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4900.     |
  4901.  
  4902.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4903.       
  4904.       [|:e| ('badTypeError'   isPrefixOf: e)
  4905.         ||  ['deadProxyError' isPrefixOf: e]
  4906.            ifFalse: [^failBlock value: e] 
  4907.               True: [
  4908.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4909.                   xlib window deadCopy IfFail: failBlock 
  4910.            ]] ).
  4911.  
  4912.  
  4913. | )
  4914.  
  4915. traits xlib xSizeHints raw _AddSlots: ( |
  4916.  
  4917.   ^ new = (
  4918.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  4919.  
  4920.   ^ newIfFail: failBlock = (
  4921.     | myFctObj =
  4922.     foreignFct copyName: 'XAllocSizeHints_New_glue' Path: 'xlib_glue.so' 
  4923.       IfFail: 
  4924.       [ ( | copyName: n = (self). 
  4925.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4926.     |
  4927.  
  4928.     myFctObj value: xlib xSizeHints deadCopy IfFail: failBlock ).
  4929.  
  4930.  
  4931.   ^ delete = (
  4932.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  4933.  
  4934.   ^ deleteIfFail: failBlock = (
  4935.     | myFctObj =
  4936.     foreignFct copyName: 'XFree_XSizeHints_wrap_Delete_glue' Path: 
  4937.       'xlib_glue.so' IfFail: 
  4938.       [ ( | copyName: n = (self). 
  4939.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4940.     |
  4941.  
  4942.     myFctObj value: self IfFail: 
  4943.       
  4944.       [|:e| ('badTypeError'   isPrefixOf: e)
  4945.         ||  ['deadProxyError' isPrefixOf: e]
  4946.            ifFalse: [^failBlock value: e] 
  4947.               True: [
  4948.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4949.                   failBlock 
  4950.            ]] .
  4951.     self).
  4952.  
  4953.  
  4954.   ^ flags = (
  4955.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  4956.  
  4957.   ^ flagsIfFail: failBlock = (
  4958.     | myFctObj =
  4959.     foreignFct copyName: 'XSizeHints_flags_Flags_glue' Path: 
  4960.       'xlib_glue.so' IfFail: 
  4961.       [ ( | copyName: n = (self). 
  4962.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4963.     |
  4964.  
  4965.     myFctObj value: self IfFail: 
  4966.       
  4967.       [|:e| ('badTypeError'   isPrefixOf: e)
  4968.         ||  ['deadProxyError' isPrefixOf: e]
  4969.            ifFalse: [^failBlock value: e] 
  4970.               True: [
  4971.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4972.                   failBlock 
  4973.            ]] ).
  4974.  
  4975.  
  4976.   ^ min_width = (
  4977.      min_widthIfFail: [|:e| ^error: 'min_width failed: ', e] ).
  4978.  
  4979.   ^ min_widthIfFail: failBlock = (
  4980.     | myFctObj =
  4981.     foreignFct copyName: 'XSizeHints_min_width_Min_width_glue' Path: 
  4982.       'xlib_glue.so' IfFail: 
  4983.       [ ( | copyName: n = (self). 
  4984.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4985.     |
  4986.  
  4987.     myFctObj value: self IfFail: 
  4988.       
  4989.       [|:e| ('badTypeError'   isPrefixOf: e)
  4990.         ||  ['deadProxyError' isPrefixOf: e]
  4991.            ifFalse: [^failBlock value: e] 
  4992.               True: [
  4993.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4994.                   failBlock 
  4995.            ]] ).
  4996.  
  4997.  
  4998.   ^ min_height = (
  4999.      min_heightIfFail: [|:e| ^error: 'min_height failed: ', e] ).
  5000.  
  5001.   ^ min_heightIfFail: failBlock = (
  5002.     | myFctObj =
  5003.     foreignFct copyName: 'XSizeHints_min_height_Min_height_glue' Path: 
  5004.       'xlib_glue.so' IfFail: 
  5005.       [ ( | copyName: n = (self). 
  5006.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5007.     |
  5008.  
  5009.     myFctObj value: self IfFail: 
  5010.       
  5011.       [|:e| ('badTypeError'   isPrefixOf: e)
  5012.         ||  ['deadProxyError' isPrefixOf: e]
  5013.            ifFalse: [^failBlock value: e] 
  5014.               True: [
  5015.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5016.                   failBlock 
  5017.            ]] ).
  5018.  
  5019.  
  5020.   ^ max_width = (
  5021.      max_widthIfFail: [|:e| ^error: 'max_width failed: ', e] ).
  5022.  
  5023.   ^ max_widthIfFail: failBlock = (
  5024.     | myFctObj =
  5025.     foreignFct copyName: 'XSizeHints_max_width_Max_width_glue' Path: 
  5026.       'xlib_glue.so' IfFail: 
  5027.       [ ( | copyName: n = (self). 
  5028.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5029.     |
  5030.  
  5031.     myFctObj value: self IfFail: 
  5032.       
  5033.       [|:e| ('badTypeError'   isPrefixOf: e)
  5034.         ||  ['deadProxyError' isPrefixOf: e]
  5035.            ifFalse: [^failBlock value: e] 
  5036.               True: [
  5037.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5038.                   failBlock 
  5039.            ]] ).
  5040.  
  5041.  
  5042.   ^ max_height = (
  5043.      max_heightIfFail: [|:e| ^error: 'max_height failed: ', e] ).
  5044.  
  5045.   ^ max_heightIfFail: failBlock = (
  5046.     | myFctObj =
  5047.     foreignFct copyName: 'XSizeHints_max_height_Max_height_glue' Path: 
  5048.       'xlib_glue.so' IfFail: 
  5049.       [ ( | copyName: n = (self). 
  5050.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5051.     |
  5052.  
  5053.     myFctObj value: self IfFail: 
  5054.       
  5055.       [|:e| ('badTypeError'   isPrefixOf: e)
  5056.         ||  ['deadProxyError' isPrefixOf: e]
  5057.            ifFalse: [^failBlock value: e] 
  5058.               True: [
  5059.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5060.                   failBlock 
  5061.            ]] ).
  5062.  
  5063.  
  5064.   ^ flags: t0  = (
  5065.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  5066.  
  5067.   ^ flags: t0 IfFail: failBlock = (
  5068.     | myFctObj =
  5069.     foreignFct copyName: 'XSizeHints_flags_Flags__glue' Path: 
  5070.       'xlib_glue.so' IfFail: 
  5071.       [ ( | copyName: n = (self). 
  5072.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5073.     |
  5074.  
  5075.     myFctObj value: self With: t0 IfFail: 
  5076.       
  5077.       [|:e| ('badTypeError'   isPrefixOf: e)
  5078.         ||  ['deadProxyError' isPrefixOf: e]
  5079.            ifFalse: [^failBlock value: e] 
  5080.               True: [
  5081.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5082.                   t0 asSmallInteger IfFail: failBlock 
  5083.            ]] .
  5084.     self).
  5085.  
  5086.  
  5087.   ^ min_width: t0  = (
  5088.      min_width: t0 IfFail: 
  5089.       [|:e| ^error: 'min_width: failed: ', e] ).
  5090.  
  5091.   ^ min_width: t0 IfFail: failBlock = (
  5092.     | myFctObj =
  5093.     foreignFct copyName: 'XSizeHints_min_width_Min_width__glue' Path: 
  5094.       'xlib_glue.so' IfFail: 
  5095.       [ ( | copyName: n = (self). 
  5096.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5097.     |
  5098.  
  5099.     myFctObj value: self With: t0 IfFail: 
  5100.       
  5101.       [|:e| ('badTypeError'   isPrefixOf: e)
  5102.         ||  ['deadProxyError' isPrefixOf: e]
  5103.            ifFalse: [^failBlock value: e] 
  5104.               True: [
  5105.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5106.                   t0 asSmallInteger IfFail: failBlock 
  5107.            ]] .
  5108.     self).
  5109.  
  5110.  
  5111.   ^ min_height: t0  = (
  5112.      min_height: t0 IfFail: 
  5113.       [|:e| ^error: 'min_height: failed: ', e] ).
  5114.  
  5115.   ^ min_height: t0 IfFail: failBlock = (
  5116.     | myFctObj =
  5117.     foreignFct copyName: 'XSizeHints_min_height_Min_height__glue' Path: 
  5118.       'xlib_glue.so' IfFail: 
  5119.       [ ( | copyName: n = (self). 
  5120.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5121.     |
  5122.  
  5123.     myFctObj value: self With: t0 IfFail: 
  5124.       
  5125.       [|:e| ('badTypeError'   isPrefixOf: e)
  5126.         ||  ['deadProxyError' isPrefixOf: e]
  5127.            ifFalse: [^failBlock value: e] 
  5128.               True: [
  5129.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5130.                   t0 asSmallInteger IfFail: failBlock 
  5131.            ]] .
  5132.     self).
  5133.  
  5134.  
  5135.   ^ max_width: t0  = (
  5136.      max_width: t0 IfFail: 
  5137.       [|:e| ^error: 'max_width: failed: ', e] ).
  5138.  
  5139.   ^ max_width: t0 IfFail: failBlock = (
  5140.     | myFctObj =
  5141.     foreignFct copyName: 'XSizeHints_max_width_Max_width__glue' Path: 
  5142.       'xlib_glue.so' IfFail: 
  5143.       [ ( | copyName: n = (self). 
  5144.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5145.     |
  5146.  
  5147.     myFctObj value: self With: t0 IfFail: 
  5148.       
  5149.       [|:e| ('badTypeError'   isPrefixOf: e)
  5150.         ||  ['deadProxyError' isPrefixOf: e]
  5151.            ifFalse: [^failBlock value: e] 
  5152.               True: [
  5153.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5154.                   t0 asSmallInteger IfFail: failBlock 
  5155.            ]] .
  5156.     self).
  5157.  
  5158.  
  5159.   ^ max_height: t0  = (
  5160.      max_height: t0 IfFail: 
  5161.       [|:e| ^error: 'max_height: failed: ', e] ).
  5162.  
  5163.   ^ max_height: t0 IfFail: failBlock = (
  5164.     | myFctObj =
  5165.     foreignFct copyName: 'XSizeHints_max_height_Max_height__glue' Path: 
  5166.       'xlib_glue.so' IfFail: 
  5167.       [ ( | copyName: n = (self). 
  5168.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5169.     |
  5170.  
  5171.     myFctObj value: self With: t0 IfFail: 
  5172.       
  5173.       [|:e| ('badTypeError'   isPrefixOf: e)
  5174.         ||  ['deadProxyError' isPrefixOf: e]
  5175.            ifFalse: [^failBlock value: e] 
  5176.               True: [
  5177.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5178.                   t0 asSmallInteger IfFail: failBlock 
  5179.            ]] .
  5180.     self).
  5181.  
  5182.  
  5183. | )
  5184.  
  5185. traits xlib xWMHints raw _AddSlots: ( |
  5186.  
  5187.   ^ new = (
  5188.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  5189.  
  5190.   ^ newIfFail: failBlock = (
  5191.     | myFctObj =
  5192.     foreignFct copyName: 'XAllocWMHints_New_glue' Path: 'xlib_glue.so' 
  5193.       IfFail: 
  5194.       [ ( | copyName: n = (self). 
  5195.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5196.     |
  5197.  
  5198.     myFctObj value: xlib xWMHints deadCopy IfFail: failBlock ).
  5199.  
  5200.  
  5201.   ^ delete = (
  5202.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  5203.  
  5204.   ^ deleteIfFail: failBlock = (
  5205.     | myFctObj =
  5206.     foreignFct copyName: 'XFree_XWMHints_wrap_Delete_glue' Path: 
  5207.       'xlib_glue.so' IfFail: 
  5208.       [ ( | copyName: n = (self). 
  5209.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5210.     |
  5211.  
  5212.     myFctObj value: self IfFail: 
  5213.       
  5214.       [|:e| ('badTypeError'   isPrefixOf: e)
  5215.         ||  ['deadProxyError' isPrefixOf: e]
  5216.            ifFalse: [^failBlock value: e] 
  5217.               True: [
  5218.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5219.                   failBlock 
  5220.            ]] .
  5221.     self).
  5222.  
  5223.  
  5224.   ^ flags = (
  5225.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  5226.  
  5227.   ^ flagsIfFail: failBlock = (
  5228.     | myFctObj =
  5229.     foreignFct copyName: 'XWMHints_flags_Flags_glue' Path: 'xlib_glue.so' 
  5230.       IfFail: 
  5231.       [ ( | copyName: n = (self). 
  5232.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5233.     |
  5234.  
  5235.     myFctObj value: self IfFail: 
  5236.       
  5237.       [|:e| ('badTypeError'   isPrefixOf: e)
  5238.         ||  ['deadProxyError' isPrefixOf: e]
  5239.            ifFalse: [^failBlock value: e] 
  5240.               True: [
  5241.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5242.                   failBlock 
  5243.            ]] ).
  5244.  
  5245.  
  5246.   ^ input = (
  5247.      inputIfFail: [|:e| ^error: 'input failed: ', e] ).
  5248.  
  5249.   ^ inputIfFail: failBlock = (
  5250.     | myFctObj =
  5251.     foreignFct copyName: 'XWMHints_input_Input_glue' Path: 'xlib_glue.so' 
  5252.       IfFail: 
  5253.       [ ( | copyName: n = (self). 
  5254.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5255.     |
  5256.  
  5257.     myFctObj value: self IfFail: 
  5258.       
  5259.       [|:e| ('badTypeError'   isPrefixOf: e)
  5260.         ||  ['deadProxyError' isPrefixOf: e]
  5261.            ifFalse: [^failBlock value: e] 
  5262.               True: [
  5263.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5264.                   failBlock 
  5265.            ]] ).
  5266.  
  5267.  
  5268.   ^ initial_state = (
  5269.      initial_stateIfFail: 
  5270.       [|:e| ^error: 'initial_state failed: ', e] ).
  5271.  
  5272.   ^ initial_stateIfFail: failBlock = (
  5273.     | myFctObj =
  5274.     foreignFct copyName: 'XWMHints_initial_state_Initial_state_glue' Path: 
  5275.       'xlib_glue.so' IfFail: 
  5276.       [ ( | copyName: n = (self). 
  5277.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5278.     |
  5279.  
  5280.     myFctObj value: self IfFail: 
  5281.       
  5282.       [|:e| ('badTypeError'   isPrefixOf: e)
  5283.         ||  ['deadProxyError' isPrefixOf: e]
  5284.            ifFalse: [^failBlock value: e] 
  5285.               True: [
  5286.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5287.                   failBlock 
  5288.            ]] ).
  5289.  
  5290.  
  5291.   ^ icon_x = (
  5292.      icon_xIfFail: [|:e| ^error: 'icon_x failed: ', e] ).
  5293.  
  5294.   ^ icon_xIfFail: failBlock = (
  5295.     | myFctObj =
  5296.     foreignFct copyName: 'XWMHints_icon_x_Icon_x_glue' Path: 
  5297.       'xlib_glue.so' IfFail: 
  5298.       [ ( | copyName: n = (self). 
  5299.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5300.     |
  5301.  
  5302.     myFctObj value: self IfFail: 
  5303.       
  5304.       [|:e| ('badTypeError'   isPrefixOf: e)
  5305.         ||  ['deadProxyError' isPrefixOf: e]
  5306.            ifFalse: [^failBlock value: e] 
  5307.               True: [
  5308.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5309.                   failBlock 
  5310.            ]] ).
  5311.  
  5312.  
  5313.   ^ icon_y = (
  5314.      icon_yIfFail: [|:e| ^error: 'icon_y failed: ', e] ).
  5315.  
  5316.   ^ icon_yIfFail: failBlock = (
  5317.     | myFctObj =
  5318.     foreignFct copyName: 'XWMHints_icon_y_Icon_y_glue' Path: 
  5319.       'xlib_glue.so' IfFail: 
  5320.       [ ( | copyName: n = (self). 
  5321.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5322.     |
  5323.  
  5324.     myFctObj value: self IfFail: 
  5325.       
  5326.       [|:e| ('badTypeError'   isPrefixOf: e)
  5327.         ||  ['deadProxyError' isPrefixOf: e]
  5328.            ifFalse: [^failBlock value: e] 
  5329.               True: [
  5330.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5331.                   failBlock 
  5332.            ]] ).
  5333.  
  5334.  
  5335.   ^ icon_pixmap = (
  5336.      icon_pixmapIfFail: [|:e| ^error: 'icon_pixmap failed: ', e] ).
  5337.  
  5338.   ^ icon_pixmapIfFail: failBlock = (
  5339.     | myFctObj =
  5340.     foreignFct copyName: 'XWMHints_icon_pixmap_Icon_pixmap_glue' Path: 
  5341.       'xlib_glue.so' IfFail: 
  5342.       [ ( | copyName: n = (self). 
  5343.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5344.     |
  5345.  
  5346.     myFctObj value: self With: xlib pixmap deadCopy IfFail: 
  5347.       
  5348.       [|:e| ('badTypeError'   isPrefixOf: e)
  5349.         ||  ['deadProxyError' isPrefixOf: e]
  5350.            ifFalse: [^failBlock value: e] 
  5351.               True: [
  5352.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5353.                   xlib pixmap deadCopy IfFail: failBlock 
  5354.            ]] ).
  5355.  
  5356.  
  5357.   ^ icon_window = (
  5358.      icon_windowIfFail: [|:e| ^error: 'icon_window failed: ', e] ).
  5359.  
  5360.   ^ icon_windowIfFail: failBlock = (
  5361.     | myFctObj =
  5362.     foreignFct copyName: 'XWMHints_icon_window_Icon_window_glue' Path: 
  5363.       'xlib_glue.so' IfFail: 
  5364.       [ ( | copyName: n = (self). 
  5365.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5366.     |
  5367.  
  5368.     myFctObj value: self With: xlib window deadCopy IfFail: 
  5369.       
  5370.       [|:e| ('badTypeError'   isPrefixOf: e)
  5371.         ||  ['deadProxyError' isPrefixOf: e]
  5372.            ifFalse: [^failBlock value: e] 
  5373.               True: [
  5374.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5375.                   xlib window deadCopy IfFail: failBlock 
  5376.            ]] ).
  5377.  
  5378.  
  5379.   ^ icon_mask = (
  5380.      icon_maskIfFail: [|:e| ^error: 'icon_mask failed: ', e] ).
  5381.  
  5382.   ^ icon_maskIfFail: failBlock = (
  5383.     | myFctObj =
  5384.     foreignFct copyName: 'XWMHints_icon_mask_Icon_mask_glue' Path: 
  5385.       'xlib_glue.so' IfFail: 
  5386.       [ ( | copyName: n = (self). 
  5387.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5388.     |
  5389.  
  5390.     myFctObj value: self With: xlib pixmap deadCopy IfFail: 
  5391.       
  5392.       [|:e| ('badTypeError'   isPrefixOf: e)
  5393.         ||  ['deadProxyError' isPrefixOf: e]
  5394.            ifFalse: [^failBlock value: e] 
  5395.               True: [
  5396.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5397.                   xlib pixmap deadCopy IfFail: failBlock 
  5398.            ]] ).
  5399.  
  5400.  
  5401.   ^ flags: t0  = (
  5402.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  5403.  
  5404.   ^ flags: t0 IfFail: failBlock = (
  5405.     | myFctObj =
  5406.     foreignFct copyName: 'XWMHints_flags_Flags__glue' Path: 'xlib_glue.so' 
  5407.       IfFail: 
  5408.       [ ( | copyName: n = (self). 
  5409.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5410.     |
  5411.  
  5412.     myFctObj value: self With: t0 IfFail: 
  5413.       
  5414.       [|:e| ('badTypeError'   isPrefixOf: e)
  5415.         ||  ['deadProxyError' isPrefixOf: e]
  5416.            ifFalse: [^failBlock value: e] 
  5417.               True: [
  5418.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5419.                   t0 asSmallInteger IfFail: failBlock 
  5420.            ]] .
  5421.     self).
  5422.  
  5423.  
  5424.   ^ input: t0  = (
  5425.      input: t0 IfFail: [|:e| ^error: 'input: failed: ', e] ).
  5426.  
  5427.   ^ input: t0 IfFail: failBlock = (
  5428.     | myFctObj =
  5429.     foreignFct copyName: 'XWMHints_input_Input__glue' Path: 'xlib_glue.so' 
  5430.       IfFail: 
  5431.       [ ( | copyName: n = (self). 
  5432.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5433.     |
  5434.  
  5435.     myFctObj value: self With: t0 IfFail: 
  5436.       
  5437.       [|:e| ('badTypeError'   isPrefixOf: e)
  5438.         ||  ['deadProxyError' isPrefixOf: e]
  5439.            ifFalse: [^failBlock value: e] 
  5440.               True: [
  5441.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5442.                   t0 IfFail: failBlock 
  5443.            ]] .
  5444.     self).
  5445.  
  5446.  
  5447.   ^ initial_state: t0  = (
  5448.      initial_state: t0 IfFail: 
  5449.       [|:e| ^error: 'initial_state: failed: ', e] ).
  5450.  
  5451.   ^ initial_state: t0 IfFail: failBlock = (
  5452.     | myFctObj =
  5453.     foreignFct copyName: 'XWMHints_initial_state_Initial_state__glue' 
  5454.       Path: 'xlib_glue.so' IfFail: 
  5455.       [ ( | copyName: n = (self). 
  5456.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5457.     |
  5458.  
  5459.     myFctObj value: self With: t0 IfFail: 
  5460.       
  5461.       [|:e| ('badTypeError'   isPrefixOf: e)
  5462.         ||  ['deadProxyError' isPrefixOf: e]
  5463.            ifFalse: [^failBlock value: e] 
  5464.               True: [
  5465.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5466.                   t0 asSmallInteger IfFail: failBlock 
  5467.            ]] .
  5468.     self).
  5469.  
  5470.  
  5471.   ^ icon_x: t0  = (
  5472.      icon_x: t0 IfFail: [|:e| ^error: 'icon_x: failed: ', e] ).
  5473.  
  5474.   ^ icon_x: t0 IfFail: failBlock = (
  5475.     | myFctObj =
  5476.     foreignFct copyName: 'XWMHints_icon_x_Icon_x__glue' Path: 
  5477.       'xlib_glue.so' IfFail: 
  5478.       [ ( | copyName: n = (self). 
  5479.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5480.     |
  5481.  
  5482.     myFctObj value: self With: t0 IfFail: 
  5483.       
  5484.       [|:e| ('badTypeError'   isPrefixOf: e)
  5485.         ||  ['deadProxyError' isPrefixOf: e]
  5486.            ifFalse: [^failBlock value: e] 
  5487.               True: [
  5488.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5489.                   t0 asSmallInteger IfFail: failBlock 
  5490.            ]] .
  5491.     self).
  5492.  
  5493.  
  5494.   ^ icon_y: t0  = (
  5495.      icon_y: t0 IfFail: [|:e| ^error: 'icon_y: failed: ', e] ).
  5496.  
  5497.   ^ icon_y: t0 IfFail: failBlock = (
  5498.     | myFctObj =
  5499.     foreignFct copyName: 'XWMHints_icon_y_Icon_y__glue' Path: 
  5500.       'xlib_glue.so' IfFail: 
  5501.       [ ( | copyName: n = (self). 
  5502.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5503.     |
  5504.  
  5505.     myFctObj value: self With: t0 IfFail: 
  5506.       
  5507.       [|:e| ('badTypeError'   isPrefixOf: e)
  5508.         ||  ['deadProxyError' isPrefixOf: e]
  5509.            ifFalse: [^failBlock value: e] 
  5510.               True: [
  5511.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5512.                   t0 asSmallInteger IfFail: failBlock 
  5513.            ]] .
  5514.     self).
  5515.  
  5516.  
  5517.   ^ icon_pixmap: t0  = (
  5518.      icon_pixmap: t0 IfFail: 
  5519.       [|:e| ^error: 'icon_pixmap: failed: ', e] ).
  5520.  
  5521.   ^ icon_pixmap: t0 IfFail: failBlock = (
  5522.     | myFctObj =
  5523.     foreignFct copyName: 'XWMHints_icon_pixmap_Icon_pixmap__glue' Path: 
  5524.       'xlib_glue.so' IfFail: 
  5525.       [ ( | copyName: n = (self). 
  5526.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5527.     |
  5528.  
  5529.     myFctObj value: self With: t0 IfFail: 
  5530.       
  5531.       [|:e| ('badTypeError'   isPrefixOf: e)
  5532.         ||  ['deadProxyError' isPrefixOf: e]
  5533.            ifFalse: [^failBlock value: e] 
  5534.               True: [
  5535.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5536.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5537.                   IfFail: failBlock 
  5538.            ]] .
  5539.     self).
  5540.  
  5541.  
  5542.   ^ icon_window: t0  = (
  5543.      icon_window: t0 IfFail: 
  5544.       [|:e| ^error: 'icon_window: failed: ', e] ).
  5545.  
  5546.   ^ icon_window: t0 IfFail: failBlock = (
  5547.     | myFctObj =
  5548.     foreignFct copyName: 'XWMHints_icon_window_Icon_window__glue' Path: 
  5549.       'xlib_glue.so' IfFail: 
  5550.       [ ( | copyName: n = (self). 
  5551.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5552.     |
  5553.  
  5554.     myFctObj value: self With: t0 IfFail: 
  5555.       
  5556.       [|:e| ('badTypeError'   isPrefixOf: e)
  5557.         ||  ['deadProxyError' isPrefixOf: e]
  5558.            ifFalse: [^failBlock value: e] 
  5559.               True: [
  5560.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5561.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5562.                   IfFail: failBlock 
  5563.            ]] .
  5564.     self).
  5565.  
  5566.  
  5567.   ^ icon_mask: t0  = (
  5568.      icon_mask: t0 IfFail: 
  5569.       [|:e| ^error: 'icon_mask: failed: ', e] ).
  5570.  
  5571.   ^ icon_mask: t0 IfFail: failBlock = (
  5572.     | myFctObj =
  5573.     foreignFct copyName: 'XWMHints_icon_mask_Icon_mask__glue' Path: 
  5574.       'xlib_glue.so' IfFail: 
  5575.       [ ( | copyName: n = (self). 
  5576.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5577.     |
  5578.  
  5579.     myFctObj value: self With: t0 IfFail: 
  5580.       
  5581.       [|:e| ('badTypeError'   isPrefixOf: e)
  5582.         ||  ['deadProxyError' isPrefixOf: e]
  5583.            ifFalse: [^failBlock value: e] 
  5584.               True: [
  5585.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5586.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5587.                   IfFail: failBlock 
  5588.            ]] .
  5589.     self).
  5590.  
  5591.  
  5592. | )
  5593.  
  5594. traits xlib xTextProperty raw _AddSlots: ( |
  5595.  
  5596.   ^ new = (
  5597.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  5598.  
  5599.   ^ newIfFail: failBlock = (
  5600.     | myFctObj =
  5601.     foreignFct copyName: 'XTextProperty_new_New_glue' Path: 'xlib_glue.so' 
  5602.       IfFail: 
  5603.       [ ( | copyName: n = (self). 
  5604.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5605.     |
  5606.  
  5607.     myFctObj value: xlib xTextProperty deadCopy IfFail: failBlock ).
  5608.  
  5609.  
  5610.   _ freeValue: t0  = (
  5611.      freeValue: t0 IfFail: 
  5612.       [|:e| ^error: 'freeValue: failed: ', e] ).
  5613.  
  5614.   _ freeValue: t0 IfFail: failBlock = (
  5615.     | myFctObj =
  5616.     foreignFct copyName: 'XFree_FreeValue__glue' Path: 'xlib_glue.so' 
  5617.       IfFail: 
  5618.       [ ( | copyName: n = (self). 
  5619.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5620.     |
  5621.  
  5622.     myFctObj value: t0 IfFail: 
  5623.       
  5624.       [|:e| ('badTypeError'   isPrefixOf: e)
  5625.         ||  ['deadProxyError' isPrefixOf: e]
  5626.            ifFalse: [^failBlock value: e] 
  5627.               True: [
  5628.                 myFctObj value: (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5629.                   IfFail: failBlock 
  5630.            ]] .
  5631.     self).
  5632.  
  5633.  
  5634.   _ basicDelete = (
  5635.      basicDeleteIfFail: [|:e| ^error: 'basicDelete failed: ', e] ).
  5636.  
  5637.   _ basicDeleteIfFail: failBlock = (
  5638.     | myFctObj =
  5639.     foreignFct copyName: 'XTextProperty_delete_BasicDelete_glue' Path: 
  5640.       'xlib_glue.so' IfFail: 
  5641.       [ ( | copyName: n = (self). 
  5642.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5643.     |
  5644.  
  5645.     myFctObj value: self IfFail: 
  5646.       
  5647.       [|:e| ('badTypeError'   isPrefixOf: e)
  5648.         ||  ['deadProxyError' isPrefixOf: e]
  5649.            ifFalse: [^failBlock value: e] 
  5650.               True: [
  5651.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5652.                   failBlock 
  5653.            ]] .
  5654.     self).
  5655.  
  5656.  
  5657.   _ value = (
  5658.      valueIfFail: [|:e| ^error: 'value failed: ', e] ).
  5659.  
  5660.   _ valueIfFail: failBlock = (
  5661.     | myFctObj =
  5662.     foreignFct copyName: 'XTextProperty_value_Value_glue' Path: 
  5663.       'xlib_glue.so' IfFail: 
  5664.       [ ( | copyName: n = (self). 
  5665.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5666.     |
  5667.  
  5668.     myFctObj value: self With: proxy deadCopy IfFail: 
  5669.       
  5670.       [|:e| ('badTypeError'   isPrefixOf: e)
  5671.         ||  ['deadProxyError' isPrefixOf: e]
  5672.            ifFalse: [^failBlock value: e] 
  5673.               True: [
  5674.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5675.                   proxy deadCopy IfFail: failBlock 
  5676.            ]] ).
  5677.  
  5678.  
  5679.   ^ xStringToTextProperty: t0  = (
  5680.      xStringToTextProperty: t0 IfFail: 
  5681.       [|:e| ^error: 'xStringToTextProperty: failed: ', e] ).
  5682.  
  5683.   ^ xStringToTextProperty: t0 IfFail: failBlock = (
  5684.     | myFctObj =
  5685.     foreignFct copyName: 
  5686.       'XStringToTextProperty_wrap_XStringToTextProperty__glue' 
  5687.       Path: 'xlib_glue.so' IfFail: 
  5688.       [ ( | copyName: n = (self). 
  5689.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5690.     |
  5691.  
  5692.     myFctObj value: self With: t0 IfFail: 
  5693.       
  5694.       [|:e| ('badTypeError'   isPrefixOf: e)
  5695.         ||  ['deadProxyError' isPrefixOf: e]
  5696.            ifFalse: [^failBlock value: e] 
  5697.               True: [
  5698.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5699.                   t0 asByteVector IfFail: failBlock 
  5700.            ]] ).
  5701.  
  5702.  
  5703. | )
  5704.  
  5705. traits xlib window raw _AddSlots: ( |
  5706.  
  5707.   ^ getWinId = (
  5708.      getWinIdIfFail: [|:e| ^error: 'getWinId failed: ', e] ).
  5709.  
  5710.   ^ getWinIdIfFail: failBlock = (
  5711.     | myFctObj =
  5712.     foreignFct copyName: 'kjx_getWinId_GetWinId_glue' Path: 'xlib_glue.so' 
  5713.       IfFail: 
  5714.       [ ( | copyName: n = (self). 
  5715.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5716.     |
  5717.  
  5718.     myFctObj value: self IfFail: 
  5719.       
  5720.       [|:e| ('badTypeError'   isPrefixOf: e)
  5721.         ||  ['deadProxyError' isPrefixOf: e]
  5722.            ifFalse: [^failBlock value: e] 
  5723.               True: [
  5724.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5725.                   failBlock 
  5726.            ]] ).
  5727.  
  5728.  
  5729. | )
  5730.  
  5731.  
  5732.